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54 1 GENERAL INFORMATION 
55 

56 1.1 Product Otscription 

57 

58 Tha TUSl Functional DiaQnoatic 'a intandad to provide 

59 confidanca in tha baaic functionality of tha TUSl aubsyatam. As such, 

60 this should ba tha first host laval diagnoat^c run on tha TUSl 

61 subsystant to varify inatallation. or for troublashoot ing. Throughout 

62 tha program, amphasis is placad on isolating faults to tha F!«ld 

63 Raplacaabla Unit (FRU). 
64 

65 Tha program runs in standalona moda in conjunction with tha 

66 PPP-11 family Diagnostic Suparvisor. In addition to host laval 

67 tasting, tha program m!11 implicitly invoka th* TUSl's controllar 

68 rasidant Laval 1 salf tast microdi agnostics as wall as axplicitly 

69 invoking tha controllar' s Laval 2 microdt agnostics. 
70 

71 
72 

73 1.2 Product Usars And Usas 
74 

75 

76 1. OriT tasting 
77 

78 2. As appropriata at various manufacturing facilitias 
79 

80 3. Fiald sarvic* parsonnal 
81 

82 4. DEC customers Mho choos* to provide their own ma intai nance 

83 

84 

85 

66 

87 1.3 Performance Goals 
88 

89 This program Mill test up to four TUSl's in a sequential 

90 menner. To run a full pass of the program, a scratch tape must be 

91 mounted on tha transport and an operator must be present to perform 

92 manual intervention. HoMavcr, appropriate subsets of the program cwf 

93 be run if there is no scratch tap*, or the operator inhibits manual 

94 intervention teats. Furthermore, the first pass of the program Mill 

95 run in "quick verify" modci i.e.. a single iteration of each test Mill 

96 be performed. If multiple passes ar* specified by the operator, the 

97 second and all subsequent pass«s Mill run Mith each test executed Mith 

98 multiple iterations. First pass exacwtion time Mill be approximately 

99 20 minutes Mhile second pass execution time Mill b* approximately 24 
100 minutes. These pass times are based on a single unit under test. 

101 

102 1.4 Pass/Fail Criteria 
103 

104 Thia program employs a bottom-up approach to testing the TUSl: 

105 that is. Test 1 Mill attempt to verify the si idlest level of 

106 host-to-controller communication as outlined in UQSSP. Each 

107 subsequent test builds upon the functionality already verified in 

108 previous tests. Hence, most error., encountered by the program Mill be 

109 considered as fatal device errors and the failing unit Mill be dropped 

110 from the rest of the test sequence. 
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111 
112 
113 

114 l.S Fallaoft Goals 

115 

116 Unit specif c probltms Mill b* handled by th« progran. CPU 

117 faults (i.a.. illtgal traps or interrupts) Mi 11 ba handled by the 

118 Diagnostic Supervisor. System faults Mill be handled by the 

119 Diagnostic Supervisor, fault dependent. 

120 
121 
122 

123 1.6 Restrictions 

124 

125 Although basic read/Mr ite testing is performed, this program 

126 is not interested in measuring the subsystem's data reliability. 

127 While recoverable data errors Mill be reported by the program, no 

128 attempt Mill be made to determine the subsystem's compliance Mtth 

129 error rates. Unrecoverable data errors Mill be considered as fatal 

130 device errors, although the media could be the causative factor. 
131 

132 
133 

134 1.7 Non -Goals 

135 

136 This program is intended to verify the gross functionality of 

137 host-to-controUcr communications, the integrity of the controller 

138 hardMare. controller-to-drive communication and the basic 

139 functionality of the drive. It is not intended as a verification of 

140 TMSCP protocol as implemented in the controller firmMsre. and no 

141 testing of TMSCP commands is provided. 
142 

143 
144 

145 1.8 Runtime Environment Requirements 

146 

147 Runtime environment requirements include: 

148 

149 1. XXDP* Diagnostic Supervisor 

150 

151 2. PDP-11 family CPU 

152 

153 3. 28 KU memory 

154 

155 4. Console Tarminal 

156 

157 5. Lead Davie* 

158 

159 6. 1 to 4 TU81 tap* drives Mith controllers 

160 

161 7. 1 to 4 TU81 scratch tapes (optional) 

162 

163 8. LCP-5 UfO softMsre (optional) 

164 
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166 2 US£R INTERFACE 

167 

168 2.1 Usar Dialogue 

169 

170 The folloHing user dialogue m'11 be provided at progran 

171 start -time to alloM the user to establish certain operational 

172 paranctcrs of the program. 
173 

174 
175 

176 2.1.1 HardMare Questions - 

177 

178 This set of questions must be ansMered when the program is 

179 first started. 
180 

181 CHANGE HARDWARE (D? no default 

182 

183 NUMBER OF UNITS (0)? enter number from 1-4 

184 UNIT X 

185 BASE ADDRESS (0) 774500? 

186 VECTOR (0) 260? 

187 UNIT NUMBER (0)? 
188 

189 
190 

191 2.1.2 Definition Of HardMare Questions - 

192 

193 CHANGE HARDWARE - This question merely Msnts to know if you mnt to 

194 reconfigure the units under test. It must be answered "yes" on the 

195 first pass of the program. 
196 

197 NltBER OF UNITS - Enter the number of TU81's to be tested. 

198 

199 BASE ADDRESS - Enter the 10 address of the unit to be tested. 

200 

201 VECTOR - Enter the vector location to be used for the unit. 

202 

203 UNIT NUMBER - Enter the MSCP-specif ted unit number for the unit. 

204 

205 This entire set of questions Mill be repeated up to four times. 

206 depending on the user's response to the "number of units" question. 
207 

208 
209 

210 2.1.3 SoftMsre Questions - 

211 

212 Most of the optional functionality of the program is either 

213 handled automatically by the program or through established procedures 

214 provided by the Diagnostic Supervisor hence there are no softMore 

215 questions. 



PARAMETER COOING 



HACRO YDS. 02 Thursday 25-Jul-8S 16:53 Pag* 6 



SEQ 6 



217 3 ERROR REPORTS 

218 

Error raport* will hava two basic formats as dascribtd bslow. 

220 It is anticipatad that, du* to program partitioning, it Mill b« 

221 possibl* to unambiguously dafina a singla FRU as th* causa of any 

222 error condition. 
223 

224 
225 

226 3.1 Error Format 1 

227 

228 This basic format Mill b* used by all host level testing. 

229 

230 CZTU2 error eeeee on unit 11 test ttt sub sss PC: xxxxxx 

231 SA CONTENTS IN ERROR 

232 INIT SEQUENCE STEP *: n 

233 SA RE: mmmmmn EXPCTD: yyyyyy ACTUAL SA: zzzzzz 
234 

235 ****FAILING FRU: LESI/CONTROLLER/CABLE**** 

236 

237 In this example, the fields have the folloMing meanings: 

238 
239 
240 
241 
242 

243 hardHar* question* 

244 

245 - ttt " test number during Mhich error occurred 

246 

247 - sss ■ subtest number 

246 

249 - xxxxxx • program location of error call 

250 

251 - n * step number of the UQSSP initialization sequence Mhich 

252 detected the error condition 
253 

254 - MMHMMM « physical address of the SA register 

||6 yyyyyy " axpected contents of SA register for this step 

258 - zzzzzz - actual SA register contents 



- eeeee " discrete error number as defined by program 

11 ■ logical unit number assigned to unit- in-error during 
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260 3.2 Error Format 2 

261 

262 This format Nill b« used for errors dttcctad by th« Laval 2 

263 microdiasnostics. 
264 

265 CZTU2A0 DVC FTL trror %9f on unit 11 tast ttt sub sss PC: xxxxxx 

266 INTERNAL DRIVE TEST FAILED 
267 

268 

269 FAULT CODE: ff SUB-FAULT CODE: cc 

270 REFER TO PATHFINDER FOR EXPLANATION OF CODES. 
271 

272 ****FAILING FRU: DRIVE**** 

273 

274 

275 In this axampla, tha fialds have tha folloMing maamngs: 

276 

?77 

278 - " saa abova 

279 

280 - 11 - saa abova 

281 

282 - ttt * saa abova 

283 

284 - sss ■ saa abova 

285 

286 - xxxxxx > saa abova 

287 

288 - ff ■ refar to pathf indar 

289 

290 - cc " r*ftr to pathf indar 
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292 4 FUNCTIONAL DESCRIPTION 
293 

294 The follontlng t«»t descriptions all have ctrtain points n 

295 common. All errors specified below Mill cause the unit to be dropped 

296 from the test, unless specifically noted to the contrary. 

297 Furthermore, if the operator has chosen loop-on-error (LOf flag set) 

298 scope loops Mill return to the beginning of the test containing the 

299 failure. Exceptions to this Mill also be noted explicitly beloM. To 

300 understand the normal four step initialization sequence, refer to the 

301 UQSSP; the descriptions of tests that use this sequercc Mill only 

302 highlight unique features utilized by that specific test. 
303 

304 
305 

306 4.2 TEST 1 < Existence Vcrfication Test > - 
307 

308 TEST DESCRIPTION: 
309 

310 Th s test verifies the TU81 IP and SA registers can 

311 be accessed on the unibus through the UBA. 
312 

313 TEST STEPS: 
314 

315 BGNTEST 

316 Initialize the Unibus 

317 IF error on initialize 

318 THEN Print Systen error and ABORT program 

319 Clear UBA status 

320 IF error on Clear status 

321 THEN Print Systa* error and ABORT prograa 

322 Read the IP register 

323 Wait 100 nicrosccorxts for possible Unibus tiaaout 

324 Read UBA statu* 

325 IF Unibua tiacout error 

326 THEN Print Fatal device arrer and drop unit 

327 IF any UBA error 

328 THEN Print Fatal device error and ABORT prograa 

329 Read the SA regiatar 

330 Wait 100 aicreMcends for petsibie Unibus tiacout 

331 Read UBA status 

332 IF any UBA error 

333 THEN Print Fatsl device error and ABORT prograa 

334 ENOTEST 
335 

336 DEBUG: 
337 

33€ No error looping is alloNcd all errors abort the test or prograa 

339 The FRU is the Lesi Adapter for all errors in this '^<t. 
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341 4.2 TEST 2 < Initialization Test > 

342 

343 TEST DESCRIPTION: 

344 

345 Thia teat will do a TU81 controller hard initialize 

346 to causa tha rom raaidcnt poMor up diagnoatica 

347 in tha tu81 to ba run. 
348 

349 TEST STEPS: 

350 

351 BGNTEST 

352 Call dup ipinit to Mrita to tha Ip ragiatar to bogin 

353 hard initialize and Ma it for STEP 1. 

354 IF tha TU81 faila to mnUr STEP 1 

355 THEN print fatal davica error and drop unit 

356 Compare atep 1 data axpd Mith racv 

357 IF data compare error 

358 THEN print fatal device error and drop unit 

359 ENDTEST 
360 

361 

362 DEBUG: 
363 

364 If loop on error epacified than loop to start of taat. 

365 The FRU ia the Laai Adapter for all errors in this tast. 
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367 4.3 TEST 3 < Initialization Teat > - 
368 

369 TEST OESCRIPTION: 

370 

371 This test Hill do a TU81 controller hard initialize 

372 then do initialization steps 1 throu{^ 3. 

373 It Hill Ha it for step 4 to be entered but no step 4 

374 testing Mill be done in this test. 

375 

376 TEST STEPS: 

377 

378 BGNTEST 

379 Call dup ipinit to Mrite to the Ip register to begin 

380 hard initialize and nait for STEP 1. 

381 IF the TU81 fails to enter STEP 1 

382 THEN print fatal device error and drop unit 

383 Compare step 1 data expd with recv 

384 IF data coMipare error 

385 THEN print fatal device error and drop unit 
386 

38/ Cal) dup stepl to write step 1 bit pattern and Ma it step 2 

388 IF the TU81 fails to enter STEP 2 

389 THEN print fatal device error and drop unit 

390 Cospare step 2 data expd Mith recv 

391 IF data coaparc error 

392 THEN »rint fatal device error and drop unit 
393 

394 Call dup__step2 to Mrite step 2 bit pattern and Msit step 3 

395 IF the TUai fails to enter STEP 3 

396 THEN print fatal device error and drop unit 

397 Compare step 3 data expd Mith recv 

398 IF data ceapare error 

399 THEN print fatal device error and drop unit 
400 

401 Call dup_.atep3 to Mrite step 3 bit pattern and Mait step 4 

402 IF the TUBl fails to enter STEP 4 

403 THEN print fatal device error and drop unit 

404 Compare step 4 data expd Mith recv 

405 IF data compare error 

406 THEN print fatal device error and drop unit 

407 ENOTEST 
408 

409 

410 DEBUG: 
411 

412 If loop on error specified then loop to start of test. 

413 The FRU is the Lesi Adapter for all errors in this test. 
414 



PARAMETER COOING MACRO Y05.02 Thursday 25-Jul-8S 16:53 Pag« 11 SEQ 11 



416 4.4 TEST 4 < SA Register Urap Test > 
417 

418 TEST OESCRIPTION: 

419 

420 The TU81 Nill be initialized in diagnostic wrap mode 

421 and then a one (1) bit Nill be floated through the 

422 SA register to see that it echoes properly. 

423 The process Mill be repeated to float a zto (0) 

424 through the SA register. 
425 

426 TEST STEPS: 

427 

428 BGNTEST 

429 Call dup ipinit to write to the Ip register to begin 

430 hard initialize and itait for STEP 1. 

431 IF the TU81 fails to enter STEP 1 

432 THEN print fatal device error and drop unit 

433 Call dup step 1 to set diagnostic itrap nod* 

434 REPEAT for all data in rLOAT..tabl« 

435 Write data pattern into SA register 

436 Start a 10 second tiaier 

437 Read SA register until the read pattern equals the 

438 Mrite pattern or 10 second tiner tiaas out. 

439 IF 10 second ti*er expired 

440 THEN Print Fatal device error and drop unit 

441 END-REPEAT 

442 Call dup__ipinit to Mrite to the Ip register to begin 
44., hard initialize and Mait for STEP 1. 

444 IF the TU81 fail* to enter STEP 1 

445 THEN print fatal davic* error and drop unit 

446 ENOTEST 
447 

448 FLOAT.. table: 

449 FLOATING i'S 1.2.4.10.20.40.100.200.400.1000.2000 

450 4000.10000.20000.40000.100000 

451 FLOATING O'S Floating I's coaplsMnted 

452 

453 DEBUG: 
454 

455 If loop on error specified then loop on failing write and read. 

456 The FRU is the Lesi Adapter and tuSl controller 

457 for all errors <n this test. 
458 

459 
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461 4.5 TEST 5 < Vtctor And BR Level Test > 
462 

463 TEST DESCRIPTION: 

464 

465 The TU81 Mill b* initialized Mith interrupt enable 

466 set to verify that the TU81 interrupt j to the 

467 correct vector and BR level. 

468 This test is only rurt on the first pass. 
469 

470 TEST STEPS: 

471 

472 BGNTEST 

473 Call dup ipinit to Mrite to the Ip register to begin 

474 hard initialize and Ma it for STEP 1. 

475 IF the TU81 fail* to enter STEP 1 

476 THEN Print fatal device error and drop unit 
477 

478 Set IPL to highest priority to lock out interrupts 

479 Clear UBA statu* 

480 IF error on Clear status 

481 THEN Print System error and ABORT program 

482 Enable UBA interrupts 

483 IF error on enable uba interrupts 

484 THEN Print S] stta error and ABORT prograa 
485 

486 Call dup__stcp__l to sat interrupt enable 

487 IF the TU81 fails to enter STEP 2 

488 THEN Print Fatal device error and drop unit 

489 (A tu81 step 2 interrupt should be pending here) 

490 LoMcr the IPL until interrupt occurs or level equals XIO (loMCSt) 

491 IF no Tu81 interrupt occurred 

492 THEN Print Fatal device error and drop unit 

493 IF any emor detected in interrupt service 

494 THEN Print Fatal systen error and ABORT test 

495 IF the interrupt occurred at the Mrong vector 

496 THEN Print Fatal device error and drop unit 

497 IF the interrupt occurred at the wrong BR level 

498 THEN Print Fatal device error and drop unit 
499 

500 Disable UBA Interrupts 

501 IF error on Disable uba interrupts 

502 THEN Print Systen error and ABORT prograa 
503 

504 Call dup ipinit to Mr it* to the Ip register to begin 

505 hard initialize and Mait for STEP 1. 

506 IF the TU81 fails to enter STEP 1 

507 THEN Print Fatal device error and drop unit 

508 ENDTEST 
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510 DEBUG: 
511 

512 Possible reasons for incorrect interrupt vector include: 

513 

514 1. Incorrect hardware configuration 

515 2. The ATTACH command specified the Mrong vector 

516 3. Bad Lesi adapter 

517 4. Bad TU81 controller 
518 

519 If loop on error specified then loop to start of the test 

520 

521 The FRU is the Lesi Adapter and tu81 controller 

522 for all errors in this test. 
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524 4.6 TEST 6 < Purg« And Poll Tt«t > 
525 

526 TEST DESCRIPTION: 

527 

529 Thi* ttat nIII parform atap* 1-3 of th« initialize aequence 

529 than aat tha purga/poll bit in atap 3. 

530 Tha purga/poll aaquanea Mill than proeaad to: 

531 1. Urita O'a to tha SA ragiatar to aimulata uba purga coaiplata. 

532 2. Raad and diaragard tha IP ragiatar to atart polling 

533 3. Wait for tha eontrollar to go into atap 4. 
534 

535 TEST STEPS: 

536 

537 BGNTEST 

530 Call dup ipinit to writa to tha Ip ragiatar to bagin 

539 hard initializa and wait for STEP 1. 

540 V tha TU81 faila to •nt^r STEP 1 

541 THEN Print fatal davica arrer and drop unit 

542 Compara atap 1 data axpd Mith racv 

543 V data coapara mrror 

544 THEN Print fatal davica mrror and drop unit 
545 

546 Call dup otapl to Mrita atap 1 bit pattarn and wait atap 2 

547 IF tha TUai faila to antar STEP 2 

548 THEN Print fatal davica *rror and drop unit 

549 CoMpara atap 2 data axpd with racv 

550 IF data coapara arror 

551 THEN Print fatal davica •rror and drop unit 

552 

553 Call dup_.stap2 to writa atap 2 bit pattarn and wait atap 3 

554 IF tha TU81 faila to •nfr STEP 3 

555 THEN Print fatal davica trrer and drop unit 

556 Compare atap 3 data axpd with rccv 

557 IF data coapara •rror 

558 THEN Print fatal davica •rror and drop unit 

559 * 

560 Call dup atapS to Mrita purga/poll bit (sa_pp.3) 

561 IF tha controller faila to claar tha SA within 100 aicros 

562 THEN Print fatal davica arror and drop unit 

563 Urita O'a to tha SA to aiaulata uba purge complete 

564 Read and diaregard tha IP ragiatar to start polling 

565 * 

566 IF tha TU81 fails to wtor STEP 4 mi thin 10 seconds 

567 THEN Print fatal davica error and drop unit 

568 ENOTEST 
569 

570 

571 DEBUG: 
•572 

573 If loop on error specified then loop to start of test. 

574 The FRU is the Lesi Adapter for all errors in this test. 
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576 4.7 TEST 7 < Small Ring Test > - 

577 

578 TEST DESCRIPTION: 

579 

580 Thia ttat Mill do atapa 1-4 of tha TU81 initialization. 

581 Mith tha amallaat ring buffar aiza (1 e«d and 1 rap buf far) 

582 and intarrupta dlaablad. 

583 Tha taat h!11 varify tha control lar elaara tha ring 

584 daacriptor fiald in tha hoat eomaiunieationa araa. 

585 Thia ia tha firat tiina tha initializ* aaquanc* ia carriad 

586 out to tha point Mhara tha controllar npr'a to naaiory 

587 ar* varifiad. 
580 

589 TEST STEPS: 

590 

591 BGNTEST 

592 Sat CMd and rap ring daacriptora to -1 

593 Sat cad ring langth Mord to 0 to indicat* 1 end buffar 

594 Sat rap ring langth Mord to 0 to indicata 1 rap buffar 

595 Call Oup.Init to writ* to tha Ip ragiatar to fore* 

596 a hard initializa, th«n p*rfor« atopa 1-4. 

597 IF th* TU81 fails to •ntmr any st*p 

598 THEN print fatal davic* *rror and drop unit 

599 IF th* cMd and rap ring daacriptora not claarad 

600 THEN print fatal davica arror and drop unit 

601 ENOTEST 
602 

603 

604 DEBUG: 
605 

606 If loop on «rror «p*c!fi*d th*n loop to start of test. 

607 Th* FRU is th* L*si Adaptar and TU81 controller 

608 for all arrors in this t«st. 
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610 4. a TEST 0 < Haximum Ring Buffar Taat > - 

611 

612 TEST DESCRIPTION: 

613 

614 

615 

616 Th'a taat Mill do atapa 1-4 of tha TU81 initialization. 

617 Mith tha largaat numbar of ring daacriptora allowad 

618 C128 ciiid and 128 rap buffara) and intarrupta diaablad. 

619 Tha taat Mill var ify tha centrollar elaara tha ring 

620 daacriptor fiald in tha hoat eomiKunicationa araa. 

621 This taat var ifiaa tha control lar can accasa tha complata 

622 hoat comMnunication araa in Vax awaory (1024*4 Morda). 
623 

624 TEST STEPS: 

625 

626 BGNTEST 

627 Sat end and rap ring daacriptora to -1 

628 Sat cad ring langth Mord to 7 to indicata 128 cad buffara C2**7>128) 

629 Sat rop ring langth word to 7 to indicata 128 rap buffara (2**7' 128) 

630 Call Oup. .Init to writa to tha Ip ragiatar to forca 

631 a hard initial iza, than parfora atapa 1-4. 

632 IF tha TU81 faila to tnttr any atap 

633 THEN print fatal davica trror and drop unit 

634 IF tha cMd and rap ring daacriptora not claarad 

635 THEN print fatal davica trror and drop unit 

636 ENDTEST 
637 

638 

639 DEBUG: 
640 

641 If loop on arror apacifiad than loop to atart of taat. 

642 Tha FRU is tha Laai Adaptar and TU81 centrollar 

643 for all *rror9 in this taat. 

644 Nota: 

645 Thia taat ovarlaya tha hoat coMunicationa araa Mith 

646 128 CMd ring daacriptora and 128 rap ring daacriptora. 

647 Tha actual aaaoeiatad ring buffara ara not allocatad. 

648 Tha raat of tha taata uaa juat ona end and ona rap 

649 buffer. 
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651 4.9 TEST 9 < Gtt OUST Status > - 
652 

653 TEST DESCRIPTION: 

654 

655 This test m!11 request the OUST status and vtrify the 

656 response packet is received as expected. 

657 It is also verifies invalid coiMiand status is returned 

658 Mhcn illegal modifiers are specified in the comnand packet. 

659 The GET OUST command does not alloM any command modifiers. 

660 This is the first time a command packet is actually sent to 

661 the controller and a response packet received. 
662 

663 TEST STEPS: 

664 

665 BGNSUB 1 *Gct OUST command with valid modifiers* 

666 Set cmd and rsp ring descriptors to -1 

667 Set cmd ring length word to 0 to indicate 1 cmd buffer 

668 Set rsp ring length word to 0 to indicate 1 rsp buffer 

669 Call Oup__Init to Nrite to the Zp register to force 

670 a hard initialize, then perform steps 1-4. Go bit set to 1 

671 IF the TU81 fails to enter any step 

672 THEN print fatal device error and drop unit 

673 IF the cmd and rsp ring descriptors arc not cleared 

674 THEN print fatal device error and drop unit 

675 Call cxe__getdu*t to execute • GET DUST command 

676 IF Exe__getdust returns SS»_.TinEOUT code 

677 THEN print fatal device timeout error and drop unit 

678 IF the rsp CowMnd reference number NOT - 1 

679 THEN print hard device error 

680 IF the rsp Endcode NOT- (get.dust code * 200 octal) 

681 THEN print hard device error 

682 IF the rsp Stetus NOT- success 

683 THEN print hard device error 

684 IF the rsp buffer FLAGS data is NOT as follows : 

685 1. Bit<0> - 1 !du_p_dust._flag..dis - disable other servers 

686 2. Bit<l> - 1 !dup__dust flag__media - server has local media (rom) 

687 3. Bit<2> " 1 !dup._dust__f lag_.nosup - exe__suppl ied cmd not alloMed 

688 4. Bit<3> > 0 !dup__du*t_.f la.g.act - server not active 

689 THEN print hard device error 

690 ENOSUB 1 
691 

692 BGNSUB 2 *Get OUST command Nith illegal modifiers* 

693 Call exe_.getdust to execute a GET OUST command 

694 IF Exe_.getdust returns SS$__TIMEOUT code 

695 THEN print fatal device timeout error and drop unit 

696 IF the rsp Command reference number NOT - 2 

697 THEN print hard device error 

698 IF the rsp Endcode NOT- (get_.dust code * 80 hex) 

699 THEN print hard device error 

700 IF the rsp Status NOT- INVALID COHHANO 

701 THEN print hard device error 

702 ENOSUB 2 
703 

704 ENDTEST 



PARArCTER COOING 
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SEQ 18 



706 DEBUG: 
707 

708 If loop on error specified then loop to start of test. 

709 The TRU is the lesi adapter or the TU81 controller/server 

710 for all errors in this test. 
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SEQ 19 



712 4.10 TEST 10 < Functional Fault Oataction Taat (Intarnal Oriva Tast 1 > 

713 TEST DESCRIPTION: 
714 

715 This is a manual (/sac; manual) intarvantion tast that Mill axacuta 

716 tha TU81 intarnal mi crodi agnostic .#1, 
717 

718 

719 TEST STEPS: 

720 

721 BGNTEST <MANUAL> 

722 Print massaga to mount taps untansionad but loadad 

723 "Is tha tapa raady?" 

724 Call dup.init to writs to tha Ip rag i star to force 

725 a hard initializa, than parform staps 1-4. Go bit sat to 1 

726 IF tha TU61 fails to antcr any stap 

727 THEN print fatal davica Tror and drop unit 
728 

729 Call OUP.EXELOCAL to axacuta an EXECUTE LOCAL PROGRAM command 

730 IF Oup.axalocal raturna SS.GETOUSTMO 

731 THEN print Gat dust command timeout 

732 IF Oup.axalocal returns SS.NOTIDLE 

733 THEN print controller not in idle state 

734 IF Oup.exelocal returns SS>. TIMEOUT 

735 THEN print controller failed to return packet 

736 IF Oup.exelocal returns SS.EXEBAOREF 

737 THEN print invalid command reference 

738 IF Oup.exelocal returns SS.NOTSUCCESS 

739 THEN print controller failed to return auceess in packet 

740 IF Oup.exelocal returns ss.dustbaoref 

741 THEN print invalid command reference 

742 IF Oup.exelocal returns SSI.DEVINACT 

743 THEN print controller failed to enter active state 

744 IF Oup.exelocal returns SS.RECVTMO 

745 THEN print Controller failed to accept receive data command 

746 IF Oup.exelocal returns SS.PROGTMO 

747 THEN print progress indicator not updated before timeout 

748 IF Oup.exelocal returns SS.RECVINVMSG 

749 THEN print Receive data returned invalid message number 

750 IF Oup.exelocal returns SS.RECVERR2 

751 THEN print Receive data returned internal test failed 

752 and print the message buffer fault code and subcode. 

753 and print refer to SAMS for fault code meanings. 

754 IF Oup.exelocal returns SS.SAERR 

755 THEN print controller error Mhila in execute local program 

756 ENOTEST 
757 

758 

759 OEBUG: 
760 

761 If loop on error specified then loop to start of test. 

762 The FRU is lesi Adapter for in'tial'ze errors 

763 or the TU81 controller /server for all other errors. 
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SEQ 20 



765 4.11 TEST 11 < Tanaion Fault laQlation Taat (Intarnal Oriva Tast 2)> - 

766 

767 TEST DESCRIPTION: 

768 

769 This ia a Fault (/aac:Fault) intarvantion tast that Mill axaeuta 

770 tha TU81 intarnal microdiagnoatie .•2. 

771 Intarnal tast _«2 isolatas sarvo faults by chacking di ffarant 

772 assamblias of tha STU. 
775 

774 

775 TEST STEPS: 

776 

777 BGNTEST <Fault> 

778 Print massaga "Mount a scratch tapa THREADED but UNTENSIONED" 

779 "Is tha tapa raady?" 

780 Call dup in it to writs to tha Ip rag i star to forca 

781 a hard initializa, than parform staps 1-4. Go bit sat to 1 

782 IF tha TU81 fails to antar any stap 

783 THEN print fatal davica arror and drop unit 

784 Call OUP.EXELOCAL to axaeuta an EXECUTE LOCAL PROGRAM coawand 

785 IF Dup.axalocal raturns SS.GETDUSTMO 

786 THEN print Gat dust coMntand timaout 

787 IF Dup.axalocal returns SS.NOTIDLE 

788 THEN print controllar not in idle stata 

789 IF Dup.axalocal raturns SS»_TIttE0UT 

790 THEN print controllar failad to return packet 

791 IF Dup.axalocal raturns SS.EXEBADREF 

792 THEN print invalid cofltnand reference 

793 IF Dup.exelocal returns SS.NOTSUCCESS 

794 THEN print controller failed to return success in packet 

795 IF Dup.exelocal returns ss.dustbaoref 

796 THEN print invalid coMand reference 

797 IF Dup.exelocal returns SSI.DEVINACT 

798 THEN print controllar failed to enter active state 

799 IF Dup.exelocal returns SS.RECVTMO 

800 THEN print Controller failed to accept receive data coMand 

801 IF Dup.exelocal returns SS.PROGTMO 

802 THEN print progress indicator not updated before tiaeout 

803 IF Dup.axalocal returns SS.RECVINVMSG 

804 THEN print Receive data returned invalid Message nuaber 

805 IF Dup.exelocal returns SS.RECVERR2 

806 THEN print Receive data returned internal test failed 

807 and print the message buffer fault code and subcode. 

808 and print refer to SAMS for fault code Meanings. 

809 IF Dup.exelocal returns SS.SAERR 

810 THEN print controllar arror while in execute local prograM 

811 ENOTEST 
812 

813 

814 DEBUG: 
815 

816 If loop on error spec'ficd then loop to start of test. 
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8U 4.12 TEST 12 < Velocity Fault Isolation T««t (Intarnal Oriva Taat 3)> - 

819 

820 TEST DESCRIPTION: 

821 

822 This is a Fault (/sec: Fault) intarvantion tast that Mill axacut* 

823 tha TU81 intarnal microdi agnostic _#3. 

824 Intarnal tast _#3 isolates velocity servo faults by checking 

825 the take up motor/tach assembly and the velocity servo 

826 loop . 
827 

828 

829 TEST STEPS: 

830 

831 BGNTEST <Fault> 

832 Print message "Remove the tape from the drive" 

833 "Is the tap* REMOVED?" 

834 Call dup in it to write to the Ip register to force 

835 a hard initialize, then perform steps 1-4. Go bit set to 1 

836 IF the TU81 fails to enter any step 

837 THEN print fatal device error and drop unit 

838 Call DUP.EXELOCAL to execute an EXECUTE LOCAL PROGRAM command 

839 IF Dup.exelocal returns SS.GETOUSTMO 

840 THEN print Get dust command timeout 

841 IF Dup.exelocal returns SS.NOTIDLE 

842 THEN print controller not in idle state 

843 IF Dup.exelocal returns SSl.TIMEOUT 

844 THEN print controller failed to return packet 

845 IF Dup.exelocal returns SS.EXEBAOREF 

846 THEN print invalid command reference 

847 IF Dup.exelocal returns SS.NOTSUCCESS 

848 THEN print controller failed to return success in packet 

849 IF Dup.exelocal returns ss.dustbaoref 

850 THEN print invalid command reference 

851 IF Dup.exelocal returns SSI.DEVINACT 

852 THEN print controller failed to enter active state 

853 IF Dup.exelocal returns SS.RECVTHO 

854 THEN print Controller failed to accept receive data command 

855 IF Dup.exelocal returns SS.PROGTMO 

856 THEN print progress indicator not updated before timeout 

857 IF Dup.exelocal returns SS.RECVINVMSG 

858 THEN print Receive data returned invalid message number 

859 IF Dup.exelocal returns 5S.RECVERR2 

860 THEN print Receive data returned internal test failed 

861 and print the message buffer fault code and subcode. 

862 and print refer to SAMS for fault code meanings. 

863 IF Dup.exelocal returns SS.SAERR 

864 THEN print controller error while in execute local program 

865 ENOTEST 
866 

867 

868 DEBUG: 
869 

870 If loop on error specified then loop to start of test. 

871 The FRU is lesi Adapter for initialize errors 

872 or the TU81 controller /server for all other errors. 
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074 4.13 TEST 13 < Select A Oriva Resident Test (Internal Drive Tests 1-99) > • 

875 

876 TEST DESCRIPTION: 

877 

878 This section (/sec: FAULT) will ask the operator 

879 to select a drive resident microdi agnost ic . The resident 

880 test Mill be started using the Oup Execute local program 

881 function and monitored by Oup Get Dust status function calls. 

882 The internal tests are described in the Drive maintenance manual 
883 

884 

885 TEST STEPS: 

886 

887 B6NTEST <FAULT> 

888 

889 Print message "Enter drive unit number :" 

890 IF the unit number is invalid 

891 THEN Print error message and ask again 

892 Print message "Enter controller internal test number <l-99>:" 

893 IF the resident test name is not in the valid name table 

894 THEN Print error message and ask again 
895 

896 Print message "Setup the tape drive per the Maintenance 

897 manual for this internal test 

898 READY? 

899 Accept any response as ready 

900 

901 Call dup__init to Hrite to the Ip register to force 

902 a hard initialize, then perform steps 1-4. Go bit set to 1 

903 IF the TU81 fails to enter any step 

904 THEN print fatal device error and drop unit 

905 Call OUP.EXELOCAL to execute an EXECUTE LOCAL PROGRAM command 

906 IF Oup.exelocal returns SS.GETOUSTHO 

907 THEN print Get dust command timeout 

908 IF Oup.exelocal returns SS.NOTIOLE 

909 THEN print controller not in idle state 

910 IF Oup.exelocal returns SSI. TIMEOUT 

911 THEN print controller failed to return packet 

912 IF Oup.exelocal returns SS.EXEBAOREF 

913 THEN print invalid command reference 

914 IF Oup.exelocal returns SS.NOTSUCCESS 

915 THEN print controller failed to return success in packet 

916 IF Oup.EXELOCAL returns SS.OUSTBAOREF 

917 THEN print invalid command reference 

918 IF Oup.exelocal returns SSt.OEVINACT 

919 THEN print controller failed to enter active state 

920 IF Oup.exelocal returns SS.RECVTMO 

921 THEN print Controller failed to accept receive data command 

922 IF Oup.exelocal returns SS.PROGTMO 

923 THEN print progress indicator not updated before timeout 

924 IF Oup.exelocal returns SS.RECVINVMSG 

925 THEN print Receive data returned invalid message number 
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SEQ 23 



927 

928 

929 

930 

931 

932 

933 

934 

935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
957 
958 
984 

986 000000 

987 002000 
988 

990 

991 002000 

992 

993 

994 

995 

996 

997 

998 002000 
999 
1007 



1008 002000 




002000 




002000 


103 


002001 


132 


002002 


124 


002003 


125 


002004 


062 


002005 


000 


002006 


000 


002007 


000 


002010 




002010 


101 


002011 




002011 


060 


002012 




002012 


000000 


002014 




002014 


000170 


002016 




002016 


043110 



ENDTEST 



IF Dup_«x«local return* SS_RECVERR2 

THEN print Receive data returned internal teat failed 

and print the message buffer fault code and subcode 
and print refer to SAMS for fault code meanings. 
IF Dup.exelocal returns SS.RECVMSG3 

THEN print contents of receive data message buffer (not an error) 

If Dup.exelocal returns SS_SAERR 

THEN print controller error while in execute local program 



DEBUG: 

If loop on error specified then loop to start of test. 

The FRU is lesi Adapter for initialize errors 

or the TU81 controller/server for all other errors. 

8 

.TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 

.ENABL ABS.AMA 

2000 

.NLIST BEX 
B6NM0D 

i THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
s THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 



POINTER BGNOU . ERRTBL . BGNRPT 





HEADER 


CZTU2.A. 


0,120. .O.PRIOO 


LtNAME: 






: DIAGNOSTIC NAME 




'.ASCII 


/c/ 






.ASCII 


/z/ 






.ASCII 


/T/ 






.ASCII 


/U/ 






.ASCII 


/2/ 






.BYTE 


0 






.BYTE 


0 






.BYTE 


0 




L»REV: : 






;REVISION LEVEL 




.ASCII 


/A/ 




LIOEPO: 






:0 




.ASCII 


/o/ 




L»UNIT: 






J NUMBER OF UNITS 




.UORD 


0 




L»TIML: 






J LONGEST TEST TIME 




.UORD 


120. 




LJHPCP: 






s POINTER TO H.U. QUES 




.WORD 


L$HAR0 
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PROGRAM HEADER 



002020 




L»SPCP: 


: 




{POINTER TO S.U. QUES. 


002020 


000000 




.UORO 


0 




002022 




L»HPTP: 


: 




jPTR. TO DEF. H.U. PTABLE 


002022 


002224 




.UORO 


L$HU 




002024 




L$SPTP: 






jPTR. TO S.U. PTABLE 


002024 


000000 




.WORD 


0 




002026 




DLADP: 






;OIAG. ENO ADDRESS 


002026 


062130 




.UORD 


L$LAST 




002030 




L$STA:: 






; RESERVED FOR APT STATS 


002030 


000000 




.WORD 


0 




002032 




L$CO:: 








002032 


000000 




.WORD 


0 




002034 




L»OTYP: 


: 




iOIAGNOSTIC TYPE 


002034 


000000 




.UORD 


0 




002036 




L*APT: : 






iAPT EXPANSION 


002036 


000000 




.UORO 


0 




002040 




L$DTP: : 






tPTR. TO DISPATCH TABLE 


0C2040 


002124 




.UORO 


LIDISPATCH 


002042 




LtPRIO: 


: 




: DIAGNOSTIC RUN PPIORITY 


002042 


000000 




.UORD 


PRIOO 




002044 




DENVI: 


: 




(FLAGS DESCRIBE HOU IT UAS SETUP 


002044 


000000 




.UORD 


0 




002046 




LIEXPl: 


: 




{EXPANSION UORO 


002046 


000000 




.UORD 


0 




0C205C 




LIMREV: 






:SVC REV AND EDIT 9 


00205C 


004 




.BYTE 


CtRE VISION 


002051 


000 




.BYTE 


OEOIT 




002052 




LIEF: : 






tOIAG. EVENT FLAGS 


002052 


000000 




.UORO 


0 




002054 


000000 




.UORD 


0 




002056 




LISPC:: 








002056 


000000 




.UORD 


0 




002060 




LIDEVP: 






; POINTER TO DEVICE TYPE LIST 


002060 


022766 




' .UORD 


L»DVTYP 




002062 




L$REPP: 






{PTR. TO REPORT CODE 


002062 


OOOOOOG 




. UORD 


L$RPT 




002064 




L$EXP4: 








002064 


000000 




' .UORD 


0 




002066 




LIEXPS: 








002066 


000000 




' .UORO 


0 




0C2070 




L»AUT:: 






tPTR. TO ADD UNIT CODE 


002070 


ocoooo 




.UORO 


0 




002072 




L$OUT: : 






:PTR. TO DROP UNIT CODE 


002072 


033774 




.WORD 


DOU 




002074 




DLUN:: 






sLUN FOR EXERCISERS TO FILL 


002074 


000000 




.UORO 


0 




002076 




LtDESP: 






{POINTER TO DIAG. DESCRIPTION 


002076 


002156 




.UORO 


DOESC 




002100 




DLOAO: 


: 




{GENERATE SPECIAL AUTOLOAD EHT 


002100 


104035 




EMT 


EILOAO 




002102 




L$ETP: : 






(POINTER TO ERRTBL 


002102 


OOOOOOG 




.UORO 


LIERRTBL 


002104 




L»ICP: : 






8 PTR. TO INIT CODE 


002104 


033464 




.UORO 


L»INIT 




002106 




LICCP: : 






sPTR. TO CLEAN-UP CODE 


002106 


033744 




.UORO 


L< CLEAN 




002110 




LIACP: : 






{PTR. TO AUTO CODE 
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PROGRAfI HEADER 



002110 


OOOOOOG 




.UORD 


LtAUTO 




002112 




L»PRT: : 






iPTR. TO PROTECT TABLE 


002112 


022760 




.WORD 


LIPROT 




002114 




LITEST: 






iTEST NUMBER 


002114 


000000 




'.WORD 


0 




002116 




LIDLY: : 






s DELAY COUNT 


002116 


000000 




.UORD 


0 




002120 




LIHIME: 






sPTR. TO HIGH HEM 


002120 


000000 




' .WORD 


0 





1009 




PROGRAM HCAOER AND TABLES 
DISPATCH TABLE 
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SEQ 26 



1016 
1017 



.SBTTL DISPATCH TABLE 



1018 








1019 




J THE DISPATCH 


TABLE 


1020 




: IT IS USED BY 


THE 


1021 








1022 








1023 002122 




DISPATCH 13. 


002122 


000015 


.UORD 


13 


002124 




LI DISPATCH:: 




002124 


034016 


.WORD 


Tl 


002126 


034514 


.WORD 


T2 


002130 


034744 


.WORD 


T3 


002132 


035362 


.UORD 


T4 


002134 


036124 


.UORD 


T5 


002136 


037256 


.UORD 


T6 


002140 


040702 


.UORD 


T7 


002142 


041444 


.UORD 


Te 


002144 


042206 


.UORD 


T9 


002146 


042270 


.UORD 


no 


002150 


042452 


.UORD 


Til 


002152 


042574 


.UORO 


T12 


002154 


042716 


.UORD 


T13 



1024 
1031 
1032 



1033 



002156 
002156 
002156 



103 



132 



124 



LIDESC:: 



DESCRIPT 



<CZTU2A0 TU81 FUNCTIONAL DIAGNOSTIC) 



.ASCIZ /CZTU2A0 TU81 FUNCTIONAL DIAGNOSTIC/ 
.EVEN 



raOGRAH NCAOER AND TABLES 
OerAULT HAROUARE P- TABLE 

10S5 
1036 
1037 
1038 
1039 
1040 
1041 
1042 

1043 002222 

002222 000003 
002224 
002224 

002224 174500 
002226 000260 
002230 000000 
002232 
002232 



1044 

1050 
1051 
1052 
1053 
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.SBTTL DEFAULT HAROUARE P TABLE 



: THE DEFAULT HAROUARE P -TABLE CONTAINS DEFAULT VALUES Qf 
J THE TEST -DEVICE PARAMETERS. THE STRUCTURE QF THIS TABLE 
: IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES. 



SEO 27 



L$HU:: 
DFPTBL : 



L 10000: 



BGNHU DFPTBL 

.WORD L 10000 •L$HU/2 



.WORD 174500 

.WORD 260 

.WORD 0 
ENDHU 



iTUIP BASE ADDRESS 
» VECTOR 

iT/MSCP mn NUMBER 



PROGRAM HEADER AND TABLES 
SOFTWARE P-TABLE 
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SEQ 28 



1056 
1057 
1058 
1059 
1060 
1061 
1062 

1063 002232 
002232 
002234 
002234 

1064 

1071 

1072 002234 
002234 

1073 

1074 002234 

1086 

1087 

1115 

1116 

1117 002234 

1118 

1119 

1120 

1121 

1122 

1123 

1124 002234 



000000 



.SBTTL SOFTWARE P TABLE 



i THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
i PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



LtSU:: 
SFPTBL ; 



LlOOOl: 



BGNSW 
.WORD 



ENDSW 



SFPTBL 

LlOOOl -L«SU/2 



ENOMOO 
.TITLE GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOO 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 



EQUALS 



; BIT OIFINITIONS 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
OCOlOO 
000040 
000020 
000010 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 



BIT15 
BIT14 
BIT13 
BIT12 
BITll 
BITIO 
BIT09 
BIT06 
BIT07 
6IT06 
BIT05 
BIT04 
BIT03 
BIT02 
BITOl 
BITOO 

BIT9- 
BIT8- 
BIT7- 
BIT6- 
BIT5- 
BIT4- 
BIT3- 
BIT2- 



100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT09 
BIT08 
BIT07 
BIT06 
6IT0S 
BIT04 
BIT03 
BIT02 
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SEQ 29 



000002 
000001 



BITl- 
BITO- 



BITOl 
BITOO 



000040 


i 

EF. START - ■ 


32. 


000037 


EF. RESTART" 


31. 


000036 


EF. CONTINUE-' 


30. 


000035 


EF.NEU" 


29. 


000034 


EF.PUR" 


28. 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



i EVENT FLAG DEFINITIONS 

t EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

BIT POSITION IN SECOND STATUS UQRD 
(100000) START COMMAND WAS ISSUED 
(040000) RESTART COMMAND WAS ISSUED 
(020000) CONTINUE COMMAND WAS ISSUED 
(010000) A NEW PASS HAS BEEN STARTED 
(004000) A POWER-FAIL/POUER-UP OCCURRED 



PRIORITY LEVEL DEFINITIONS 



PRI07-- 340 
PRI06— 300 
PRI05" 240 
PRI04" 200 
PRI03-- 140 
PRI02-- 100 
PRIOl" 40 
PRI00-- 0 

loPERATOR FLAG SITS 



EVL- 
LOT- 
M)R> 
lOU' 
ISR' 
UAM' 
60E< 
PNT' 
PRI' 
IXE" 
IBE' 
lER' 
LOE' 
HOE* 



4 

10 
20 
40 
100 
200 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 



G1.06AI. AREAS 
GLOBAL EQUATES 
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SECTION 



SEQ 30 



1129 














1130 














1131 




( 










1132 




iLUN.BLOCK 


OFFSETS 




1133 




i 


THESE LITERALS ARE USED 


AS WORD OFFSETS INTO THE LUNBLK. UHICH 






1 


IS 


POINTED TO THROUGHOUT THE PROGRAM BY R4. 


1103 




t 










lloe 














Ho f 














1 1 














1 1 

1 107 


AAAAAA 


TUIP 






0 


iTUIP REGISTER ADDRESS 






TU5M 


mm 




d 


Tl IC A nf#4T0TPa Afw%a^fl*A 

iTUSA REGISTER ADDRESS 


1141 




TUVEC 


m m 




A 

4 


Til TUTf BAI 0T tJPf*TAA 

iTU INTERRUPT VECTOR 


1142 


OOOOOO 


nSCrUN 


mm 




6 


iT/MSCP UNIT NUMBER 


1140 


000010 


Tl ITDCli 
lUlrSV 


m m 




10 


tSAVE LOCATION FOR IP CONTENTS 


1144 


000012 


Tl IC A Clf 

TUSASV 


m m 




12 


iSAVE LOCATION FOR SA CONTENTS 


4 1 AC 

1143 


000014 


1 1 lUPI 

LUNr LG 


m m 




14 


: BIT -SPECIFIC MEANINGS AS DEFINED BELOW 


1140 














114 f 














1 140 














4 %AiX 
1149 




























1131 




• 1 IMF! K 










1 1 C3 

113e 






THIS 


WORD IN LUNBLK IS 


USED TO CONVEY VARIOUS INFORMATION 


1 1 CV 
1130 






IN 


A 


BIT -SPECIFIC MANNER. BITS USED BY THE PROGRAM ARE 


1 1 






DEFINED AS FQLLOUS. 




1133 














1 I^A 
1 l^D 














113 ' 














1130 














1 137 


AAAAAI 


noon c 


mm 




BITO 


j-0 UUT AVAILABLE FOR TEST 


1 IDU 












i-1 UJT HAS BEEN DROPPED 


1 lOl 


UvOUOc 


INTFLG 


mm 




BITl 


1-1 EXPECTED INTERRUPT OCCURRED 


Hoc 














IIDO 


AAAAAA 


BRFLAG 


mm 




BIT2 


1-1 INTERRUPT PRIORITY TEST 


1164 














1165 


000010 


TEST. 9 


mm 




BITS 


t-1 TEST 9 FLAG 


1166 














1167 


000020 


DONEFL 


m m 




BIT4 


1-1 INTERNAL DRIVE TEST DONE 


1168 
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1170 










1171 










1172 




f 






1173 




tUQ-PORT EQUATES 




1174 




t THIS SECTION DEFINES THOSE LITERALS USED 


1175 




5 BY 


THE DIAGNOSTIC IN THE UQ-PORT PROTOCOL, 


1176 




J IN 


GENERAL THEY HAVE BEEN FORMED BY USING 


1177 




; THE 


lUO LETTER MNEMONIC DEFINED IN UQSSP, 


1178 




: PRECEDED BY "B." 


INDICATING THEY ARE BITS. 


1179 










1180 










1181 










1182 










1183 




:REAO-ONLY 


BITS 




1184 










1185 


004000 


B.Sl 


BITll ;STEP 1 


1186 


010000 


B.S2 


BIT12 jSTEP 2 


1187 


020000 


B.S3 


BIT13 jSTEP 3 


1188 


040000 


B.S4 


BIT14 jSTEP 4 


1189 










1190 


100000 


B.ER 


BIT15 (ERROR INDICATION 


1191 


002000 


B.NV 


BITIO 


■0 VECTOR IS HOST SETTABLE 


1192 


001000 


B.Q6 


BIT9 


•1 SUPPORTS 22 yiT HOST BUS 


1193 


000400 


B.DI 


BITS 


-1 SUPPORTS ENHANCED DIAGNOSTICS 


1194 


000200 


B.OO 


BIT7 


-1 SUPPORTS ODD BUFFER ADDRESSES 


1195 


000100 


8. MP 


8IT6 


-I SUPPORTS ADDRESS MAPPING 


1196 










1197 




sURITE-ONLY 


BITS 




1198 










1199 


100000 


B.PP 


BIT15 


PERFORM PUqCE AND POLL TESTS 


1200 


040000 


B.MR 


BIT14 


ENTER DIAGNOSTIC WRAP MODE 


1201 


000002 


B.LF 


BITl 


LAST FAIL REQUEST 


1202 


000001 


B.PI 


BZTO 


ENABLE ADAPTER PURGE INTERRUPTS 


1203 


000001 


B.GO 


BITO 


GO BIT . START RUNNING 


1204 










1205 




sREAD/MRITE 


BITS 




1206 










1207 


000200 


B.IE 


BIT7 sSTEP X-TION INTERRUPT ENABLE 


1208 
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SEQ 32 



1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 



000004 
000003 
000014 
177560 
177562 
177746 



GENERAL PURPOSE EQUATES 



VEC4 " 4 J VECTOR FOUR - NXM TIMEOUTS, ETC, 

CNTRLC " 3 jCONTROL C (ASCII) 

OISCAC *- 14 (BIT POSITIONS 2 AND 3 DISABLE CACHE IN CCR 

RCSR " 177560 > TERMINAL RECEIVE CONTROL/STATUS REGISTER ADDRESS 

RBUF " 177562 (TERMINAL RECEIVE BUFFER ADDRESS 

CCR " 177746 i CACHE CONTROL REGISTER ADDRESS 



GLOe/U. AREAS MACRO Y0S.02 Thursday 2S-Jul-8S 16:53 Pag* 31 
GLOBAL EQUATES SECTION 



1226 














1227 














1226 




i 










1229 




;HEnORY 


MANAGEMENT EQUATES 




1230 




i 










1231 














1232 














1233 














1234 


177572 


musRO 


■ ■ 


177572 


1 STATUS 


REG 0 


1235 


177574 


musRi 


a a 


177574 






1236 


177576 


musR2 


■ ■ 


177576 






1237 


172516 


musR3 




172516 


(SHOULD 


ONLY BE PRESENT ON 22 BIT CPU'S 


1238 














1239 


172340 


KPARO 


mm 


172340 


(KERNEL 


MODE PAGE ADDRESS REG 0 


1240 


172342 


KPARl 


m m 


172342 






1241 


172344 


KPAR2 


mm 


172344 






1242 


172346 


KPAR3 


mm 


172346 






1243 


172350 


KPAR4 


m m 


172350 






1244 


172352 


KPAR5 


m m 


172352 






1245 


172354 


KPAR6 


m m 


172354 






1246 


172356 


KPAR7 


m m 


172356 


(ALWAYS 


FOR I/O PAGE 


1247 














1248 


172300 


KPORO 


m m 


172300 


(KERNEL 


MODE PAGE DESCRIPTOR REG 0 


1249 


172302 


•<PDR1 


m u 


172302 






1250 


172304 


KPDR2 


* m 


172304 






1251 


172306 


KPDR3 


w m 


1/2306 






1252 


172310 


KP0R4 


m u 


172310 






1253 


172312 


KP0R5 


m u 


172312 






1254 


172314 


KPDR6 


m m 


172314 






1255 


172316 


KPDR7 


m m 


172316 






1256 














1257 


000001 


MMON 


m m 


BITO 


(ENABLE 


MMU - MMUSRO 


1258 


000020 


MM220N 


M m 


BIT4 


(ENABLE 


22 BIT MMU - MMUSR3 


1259 
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1261 












1262 












1263 




1 








1264 




;ConnANO 


PACKET 


OPCODES 




1265 




i 








1266 












1267 












1268 












1269 


000001 


OP.GOS ' 


I ■ 


01 


iGET OUST STATUS OPCODE 


1270 


000003 


OP.ELP ■ 


■ * 


03 


1 EXECUTE LOCAL PROGRAM OPCODE 


1271 


000005 


OP.REC ■ 


1 ■ 


05 


iRECEIVE DATA OPCODE 


1272 


000006 


OP. AST ■ 


1 ■ 


06 


; ABORT PROGRAM OPCODE 


1273 


000200 


OP. END ■ 


■ ■ 


200 


lEND MESSAGE TLAG OPCODE 


1274 












1275 












1276 












1277 












1278 












1279 




iOUP COfinANO AND END MESSAGE 


OFFSETS 


1280 












1281 












1282 












1283 












1284 


000000 


P.CRF 


■ m 


0 


{COMMAND REFERENCE NUMBER 


1285 


000010 


P.OPCO ' 


1 m 


10 


{COMMAND OPCODE 


1286 


000012 


P. MOO ■ 


■ ■ 


12 


(COMMAND MODIFIERS 


1287 


000014 


P.BCNT > 


t m 


14 


{BYTE COUNT 


1288 


000020 


P. BUFF . 


■ a 


20 


{BUFFER DESCRIPTOR 


1289 


^^^^ ■ A 

000010 


P.ENDC ■ 


■ ■ 


10 


{END MESSAGE ENOCODE 


1290 


000012 


P.STS 


1 m 


12 


{END MESSAGE STATUS 


1291 


000017 


P.FLGS ' 


■ ■ 


17 


(END MESSAGE FLAGS 


1292 


000020 


P.INOl " 


■ B 


20 


(1ST WORD OF PROGRESS INDICATOR 


129' 


000022 


P.IN02 ' 


B ■ 


2r 


(2ND WORD OF PROGRESS INDICATOR 


1294 


000024 


P.TIMO ■ 


■ ■ 


24 


(TIMEOUT VALUE 


1295 
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AC'' 










1298 










1299 










1300 




iTUSA 


BIT DEFINITIONS 




1301 










1302 










1303 










1304 










1305 


100000 

XV www 


ERR 


100000 


I ERROR 


1306 


004000 


SI 


004000 

W ~ V w 


iSTEP 1 


1307 


000001 


60 


000001 


• WW 


1308 










1309 










1310 










1311 










1312 










1313 




:U/Q PORT LITERALS 




1314 










1315 










1316 










1317 










1318 


100000 


OWN 


100000 


1 DESCRIPTOR OWNERSHIP BIT 


1319 


040000 


FLAG 


040000 


lOESCRIPTOR INTERUPT FLAG BIT 


1320 


000200 


IMM 


000200 


iinnEOIATE COnHAND FLAG 


1321 


000010 


TF.BLK 


10 


•TAPE FORMAT 


1322 


000000 


HSTiriO 


0 


tHOST TIMEOUT VALUE 


1323 


000000 


MSCPVR 


0 


iMSCP VERSION NUMBER 


1324 


000004 


RNGSTP 


4. 


t DESCRIPTOR RING STEP 


1325 


000104 


RSr>STP 


68. 


:RESPONCE BUFFER STEP 


1326 










1327 
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1329 It*************************************************************** 

1330 li***********************^*************************************** 

1331 t 

1332 ;TMSCP DRIVER BUFFER OFFSITS 

1333 I 
1334 

1335 
1336 

1337 000002 HIAOOR •■ 2. , DESCRIPTOR ADDRESS OFFSET 

1338 177777 CONIO -1. j COMMAND/RESPONSE CONNECTION TYPE I.O. 

1339 177776 CRD " -2. j COMMAND/RESPONSE CREDIT LIMIT OFFSET 

1340 177774 MSGLEN -4. : COMMAND/RESPONSE MESSAGE LENGTH 

1341 000005 TXFER 5. (ERROR FORMAT FOR "TAPE TRANSFER" ERROR LOG 

1342 000011 DRVER 9. lERROR FORMAT FOR "DRIVE ERROR" ERROR uOG 

1343 000000 CNTER »• 0. sERROR FORMAT FOR 'CONTROLLER ERROR" ERROR LOG 
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1S46 


.SBTTL GLOBAL DATA SECTION 


1547 




134» 




1349 




1350 




1351 


• 


1352 


: THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 


1353 


: IN nORE THAN ONE TEST. 


1354 


i 


1355 




1356 




1357 




1358 




1359 




1360 




1361 




1362 


t 


1363 


iLUNBLK 


1364 


t THIS BLOCK OF MEMORY IS USED TO STORE VARIABLE INFORMATION 


1365 


: PERTAINING TO THE CURRENT LOGICAL UNIT UNDER TEST. LUNBLK 


1366 


i IS POINTED TO THROUGHOUT THE PROGRAM BY R4 AND INDIVIDUAL 


1367 


LOCATIONS ARE ACCESSED VIA LITERALS DEFINED ABOVE. 


1368 


s 


1369 




1370 




1371 




1372 002234 


LUNBLK:: .BLKU 15. 


1373 




1374 




1375 




1376 




1377 


• 


1378 


sUQ-PORT NECESSITIES 


1379 


: THESE TABLES ARE SET UP BY VARIOUS 


1380 


s TESTS WITH VALUES TO BE WRITTEN TO 


1381 


THE PORT. AND COMPARISON VALUES TO 


1382 


! CHECK THE PORT AFTER EACH STEP TRAN- 


1383 


i SITION OCCURS. RESPECTIVELY. 


1384 


f 


1385 




1386 




1387 




1388 002272 


STPTBL:: .BLKU 4 i VALUES WRITTEN TO THE PORT 


1389 




1390 002302 


CMPTBL:: .BLKU 4 iCOHPARISON VALUES 


1391 
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SEQ 38 



1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 

1403 002312 

1404 002314 
1405 

1406 002316 

1407 002320 

1408 002322 
1409 

1410 

1411 002324 

1412 002326 

1413 002330 

1414 002332 

1415 002334 

1416 002336 

1417 0C2340 

1418 002342 

1419 002344 
142v 002346 

1421 002350 

1422 002352 

1423 002354 

1424 002356 

1425 002360 

1426 002362 
1427 

1428 



i i < 



000000 
000000 

000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



i PROGRAM CONTROL VARIABLES 

i THESE GLOBAL VARIABLES ARE GENERALLY USED TO CONTROL THE 

I OVERALL EXECUTION OF THE DIAGNOSTIC. 



■ ■ ' 



PASCNT : 
KTFLAG: 

TRP4F6 
PAROFF 
CHMERR 



CMTBLG 

CMARLG 

FRUIS: 

LOGUNT 

SAEXP: 

INISTP 

STEPST 

UROATA 

INNER 

OUTER 

TOUT: 

TEMP: 

ANSUER 

PROGRL 

PROGRH 

CPFLAG 



.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
.WORD 



0 
0 



.WORD 0 
.WORD 0 
.WORD 0 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



CUMULATIVE PROGRAM PASS COUNTER 

-0 MEMORY MANAGEMENT NOT AVAILABLE 

-1 MEMORY MANAGEMENT IS AVAILABLE 

-1 TRAP TO VECTOR OCCURRED 

USED IN TEST 7 TO STEP THROUGH UPPER MEMORY 

-0 NO ERROR IN COMMUNICATION AREA 

-1 ERROR WITHIN COMMUNICATION AREA 

--1 ERROR BEYOND BOUNDS OF COMM AREA 

* OF CONTIGUOUS WORDS IN ERROR IN COMM AREA 

LENGTH OF COHM AREA FOR TEST N 

POINTER TO FAULTY FRU ASCII FOR PRINTOUT 

LOGICAL UNIT • OF CURRENT UUT 

LOADED WITH EXPECTED SA FOR ERROR CHECKING 

CURRENT STEP OF INIT SEQUENCE 

SUCCESS/FAIL STATUS FROM STEP SUBROUTINES 

LOADED WITH DATA FRO WRAP MODE TEST 

COUNTER FOR POELAY ROUTINE 

OTHER COUNTER FOR PDELAY 

TIMEOUT INDICATOR FOR PDELAY 

TEMPORARY STORAGE LOCATION 

LOGICAL ANSWER IN MANUAL TEST SECTION 

SAVE LOCATION FOR 1ST WORD OF PROGRESS INDICATOR 

SAVE LOCATION FOR 2NC WORD OF PROGRESS INDICATOR 

CACHE PRESENT FLAG 
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SEQ 39 



1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 

1444 C02364 

1445 002366 

1446 002367 

1447 002370 

1448 002374 

1449 002400 
1450 

1451 
1452 
1453 
1454 
1455 
1456 
1457 

1458 002404 

1459 002406 

1460 002407 

1461 002410 

1462 002414 

1463 002420 

1464 002424 
1465 

1466 
1467 
1468 
1469 
1470 
1471 
1472 

1473 002432 

1474 002434 

1475 002435 

1476 002436 

1477 002442 

1478 002446 

1479 002452 

1480 002456 
1481 



000020 
020 
002 
000001 
000000 
000001 



000000 
000000 
000000 



000022 
020 
002 
000002 
000000 
000003 
040 



000000 
000000 
000001 
040 



000024 
000 
002 
000C03 
000000 
000005 
000156 
060000 



000000 
000000 
000000 
000000 
000000 



11' 

s f 



(DUP COmANO PACKETS 
I 

• ; ********** ********4 



GET OUST STATUS COnnANO PACKET 



GOUST: 



.WORD 
.BYTE 
• BYTE 
.WORD 
.WORD 
.UORO 



16. 

20 

2 

1.0 
0.0 

OP. COS. 0 



J PACKET LENGTH IN BYTES 
.MSGTYP • 1 (DATAGRAM) I CREOITS 
(CONNECTION 10 - 2 COUP) 
(COmiAND REFERENCE NUTIBER - 1 

I OPCODE - 1 (GET OUST STATUS) 



s I*************************************************************** 

IeXECUTE LOCAL PROGRAM COMMAND PACKET 



.UORO 18. 

.BYTE 20 

.BYTE 2 

EXELOC: .UORO 2.0 

.UORO 0.0 

.UORO OP.ELP.l 

040 TSTNAM: .ASCII / / 



jPACKET LENGTH IN BYTES 

iMSGTYP - 1 (DATAGRAM) s CREDITS - 0 

tCONNECTIQN^IO - 2 (DUP) 

t COMMAND REFERENCE NUMBER - 2 

i OPCODE ■ 3 (EXECUTE LOCAL PROGRAM) 
(LOCAL PROGRAM NAME (FILLED AT TEST) 



. I *************************************************************** 

i RECEIVE DATA COMMAND PACKET 

f 

!{*************************************************************** 



RCVOAT: 



.UORO 
.BYTE 
.BYTE 
.WORD 
.UORO 
.UORO 
.UORO 
.UORO 



20. 

0 

2 

3.0 
0.0 

OP.REC.O 
110. .0 
RDBUF.C 



i PACKET LENGTH IN BYTES 

iMSGTYP - 0 (SEQUENTIAL) I CREDITS - 0 

{CONNECTION ID - 2 (DUP) 

(COMMAND REFERENCE NUMBFR - 3 

I OPCODE - 5 (RECEIVE DATA) 
(BUFFER SIZE IN BYTES 
(BUFFER ADDRESS 
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1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 



002462 000014 

002464 020 

002465 002 

002466 000004 000000 
002472 000000 000000 
002476 000006 000000 



J 1 ************ 

Iabort connArio packet 
i 



ABORT: 



.UORO 
.BYTE 
.BYTE 
.UORO 
.UORO 
.UORO 



12. 

20 
2 

4.0 

0.0 

OP. AST. 0 



iPACKET LENGTH IN BYTES 
iMSGTYP - 1 (DATAGRAM), CREDITS 
i CONNECTION ID • 2 (DUP) 
I COMMAND REFERENCE NUMBER - 4 

> OPCODE ■ 6 (ABORT) 
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SEQ 41 



1497 
1498 
1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 



002502 
002506 



002712 
002716 
002716 
0C2726 
0C2736 



002736 
002740 
002742 
002744 
002746 
002750 
022750 
022752 



000000 
000000 
000000 
000000 
000000 

000000 
000000 



1 

1 1 ************** **•**< 

icLASS DRIVER BUFFERS 
i 

;;*******************« 
• I ****************** *4 



RESPBF:: 
RSPBUF : : 



.BLKU 2. I TOP 4 LOCATIONS OF RESPONSE BUFFER 

.BLKU 66. I DRIVER RESPONSE BUFFER 



U/Q PORT DESCRIPTOR RINGS 



OSCRNG:: .BLKU 2. lOESCRIPTOR RING 

RSPEND:: (END OF RESPONSE BUFFER 

RSPRNG:: .BLKU 4. i RESPONSE DESCRIPTOR RING 

CHDRNG:: .BLKU 4. iCWtMNO DESCRIPTOR RING 

OSCENO:: i END OF DESCRIPTOR RING 



,;***********************«*************************************** 

iCLASS AND PORT DRIVER VARIABLES 

t 

; I *************************************************************** 
• ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 



CNTHI: 
CNTFLG 
PCKSIZ 
CHDREF 
CHDCNT 
URBUF; 
CnOSAV 
RSPSAV 



.UORD 0 tVALUE OF THE HIGH TIMEOUT 

.UORD 0 (CONTROLLER FLAGS 

.UORD 0 tPACKET SIZE IN BYTES 

.UORD 0 iCOmANO REFERENCE NUMBER 

.WORD 0 iCOWIANO COUNT 

.BLKU 4096. (WRITE BUFFER 

.UORD 0 aC0H>1ANO DESCRIPTOR SAVE 

.WORD 0 (RESPONSE DESCRIPTOR SAVE 



MANUAL INTERVENTION INPUT DATA TABLE 



022754 



MANTBL : : 



.BLKB 
.EVEN 



(TUO BYTES OF INPUT. 3RD BYTE ZERO 
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SEQ 42 



1553 
1554 
1555 
1556 
1557 
1558 
1559 
1563 

1564 022760 
022-'60 

1565 022760 

1566 022762 

1567 022764 
1568 

1S69 022766 
1570 



000000 
177777 
177777 



t •••••••••••••••• 

PROTECTION TABLE 
, **************** 



8GNPR0T 
LIPROT: : 



ENOPROT 



.WORD 0 
.WORD -1 
.WORD -1 
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SEQ 43 





. s 


1576 


t s 


1577 


i t 


1578 _^ 

1579 ^ 


• 


1500 




1581 


• 




> 


1 CAY 

1383 


1 1 


1584 


: ; 


1583 


156o 




158 I 


i i 


1580 


i 




i 


1590 




1591 


ti 


1595 




1596 022766 





022766 
022766 



124 



12S 



070 



1597 



THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
MORE THAN ONE TEST. 



L»DVTYP:i 



DEVTYP <TU81> 

!asCIZ tfTUaitf 
.EVEN 
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GLOBAL TEXT SECTION 



1602 


















1603 


















1604 










IfORHAT STATEMEt 




1605 










4TS 


1606 










i 








1607 


















1608 


















1609 


022774 


045 


101 


ill 


LINEl 




.ASCIZ 


TKAINIT SEQUENCE STEP *: KOI? 


1610 


023030 


045 


116 


045 


LINE2 




.ASCIZ 


?itNKASA REG: tf06iiA EXPCTO: tf06tfA ACTUAL SA: tf06? 


1611 


023110 


045 


116 


045 


LINE3 




.ASCIZ 


?itNKAIP REG ADDRESS: K06? 


1612 


023140 


045 


116 


062 


LINE4 




.ASCIZ 


?i(N2i(A*««*FAILING FRU: KTKAtAAAKNKN? 


1613 


023203 


045 


101 


122 


LINE5 




.ASCIZ 


TKARELOCATION CONSTANT: i(06tfA VIRT. AOO: it06? 


1614 


023260 


045 


116 


045 


LINE6 




.ASCIZ 


?i(NKAEXPECTEO: *06*^ RECEIVED: iK)6? 


1615 


023323 


045 


101 


120 


LINE7 




.ASCIZ 


TKAPHYSICAL ADD: «06? 


1616 














.EVEN 




1617 


















1618 


023350 


045 


116 


045 


URl: : 




.ASCIZ 


?tfNtfASA REG: «06«A SA CONTENTS: M6? 


1619 














.EVEN 




1620 


















1621 


023414 


045 


116 


062 


PKSENT 


: .ASCIZ 


?<N2i»APACKET SENT:? 


1622 


023436 


045 


116 


045 


CREFNO 


: .ASCIZ 


?i(NKACWinAN0 REFERENCE NUMBER: «06? 


1623 


023500 


045 


116 


045 


OPCODE 


: .ASCIZ 


?|(N«A0PC00E: «03? 


1624 


023520 


045 


116 


045 


MODIFY 


: .ASCIZ 


?i(N«AnODIFIERS: K06? 


1625 


023543 


045 


116 


045 


PRGNAM 


: .ASCIZ 


?«NKAPR0GRAn NAME: KOStfA KOStfA ifOSKA MSiM tfOSM «03? 


1626 


023627 


045 


116 


045 


BYTCNT 


: .ASCIZ 


7KNKABYTE COUNT: K067 


1627 


023553 


045 


116 


045 


BUFOES 


: .ASCIZ 


?«N«ABUFFER DESCRIPTOR: K067 


1628 


023706 


045 


116 


062 


PKRECV 


: .ASCIZ 


?«N2i(APACKET RECEIVED:? 


1629 


023734 


045 


116 


045 


ENCODE 


: .ASCIZ 


?«N«AENOCOO£ : «03? 


1630 


023755 


045 


116 


045 


STATUS 


: .ASCIZ 


?itNKASTATUS: *06? 


1631 


023775 


045 


116 


045 


PRGVER 


: .ASCIZ 


?«NKAPROGRAM VERSION: <(067 


1632 


024026 


045 


116 


045 


TlttOUT 


: .ASCIZ 


7UNKATH1E0UT: <03? 


1633 


024047 


045 


116 


045 


FLAGS: 


.ASCIZ 


7KNKAFLAGS: «03? 


1634 


024066 


045 


116 


045 


FAULTC 


: .ASCIZ 


7«NKAFAULT CODE: SUB -FAULT CODE: ? 


1635 














.EVEN 




1636 


















1637 


















1638 


















1639 










i ERROR 


MESSAGES 




1640 


















1641 


















1642 


















1643 


















1644 


024140 


116 


130 


115 


Et1SG5 




.ASCIZ 


7NXn ON READ TUIP? 


1645 024161 


124 


125 


111 


EnSG6 




.ASCIZ 


7TUIP NOT 0 ON FIRST READ? 


1646 


024212 


116 


130 


115 


EHSG7 




.ASCIZ 


7NXN ON READ TUSA? 


1647 


024233 


123 


101 


040 


EnSG8 




.ASCIZ 


7SA REG IN ERROR ON FIRST READ? 


1648 


024271 


123 


101 


040 


EnSG9 




.ASCIZ 


7SA CONTENTS IN ERROR? 


1649 


024316 


123 


101 


040 


EflSGlO 


: .ASCIZ 


7SA URONG IN DATA URAP? 


1650 


024344 


105 


130 


120 


EHSGll 


:. ASCIZ 


7EXPECTED INTERRUPT DID NOT OCCUR? 


1651 


024405 


111 


116 


124 


Ef1SG12 


:. ASCIZ 


7INTRRPT OCCURRED WITH CPU PRIORITY • 7? 


1652 


024454 


123 


101 


040 


EMSG13 


: .ASCIZ 


7SA NOT 0 IN PURGE/POLL? 


1653 


024503 


120 


125 


122 


EnSG14 


: .ASCIZ 


7PIJR6E/P0LL TEST FAILED? • 


1654 


024532 


105 


130 


124 


EMSG15 


: .ASCIZ 


7EXTENDED ADDRESS TEST FAILED? 


1655 


024567 


042 


105 


130 


EnSG16 


: .ASCIZ 


7 "EXECUTE LOCAL PROGRAM" COMMAND TIMEOUT? 


1656 


024637 


042 


107 


105 


EMSG1-' 


: .ASCIZ 


?"GET OUST STATUS" COMMAND TIMEOUT? 


1657 


024701 


042 


107 


105 


EMSGIS 


:. ASCIZ 


7"GET DUST STATUS" COMMAND FAILURE? 


1658 


024743 


042 


105 


130 


EMSGl"* 


.: .ASCIZ 


? "EXECUTE LOCAL PROGRAM" COMMAND FAILURE? 
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SEQ 4S 



1659 025013 

1660 025052 

1661 025104 

1662 025135 

1663 025215 
1664 

1665 

1666 025250 

1667 025302 

1668 025323 

1669 025351 

1670 025375 

1671 025452 

1672 025534 
1673 

1674 
1675 
1676 
1677 
1678 
1679 
1680 

1681 025632 

1682 025647 

1683 025670 

1684 025716 
1685 

1686 
1687 
1688 
1689 
1690 
1691 
1692 

1693 025724 

1694 026032 

1695 026057 

1696 026134 

1697 026221 

1698 026324 

1699 026430 

1700 026536 

1701 026646 

1702 026716 
1703 



042 
101 
111 
111 
111 



124 
120 
124 
120 
111 
045 
045 



122 
102 
116 
116 
116 



111 
117 
115 
117 
116 
116 
116 



105 
117 
124 
126 
124 



115 
122 
123 
122 
103 
045 
045 



EMSG20 
EMSG21 
EMSG22 
EnSG23 
EMSG24 



URERl 
URER2 
URER3 
URER4 
URERS 
URER6 
URER7 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



7 "RECEIVE DATA" C0M1AND FAILURE? 
7AB0RT COMMANDS DON'T WORK? 
7INTERNAL DRIVE TEST HUNG? 

7INVALID MESSAGE NUMBER FROM INTERNAL DRIVE TEST? 
7INTERNAL DRIVE TEST FAILED? 



?TIME OUT DURING PORT INIT? 
?PORT INIT FAILED? 
7TMSCP COMHANO FAILURE? 
?PORT DETECTED ERROR? 

7INC0RRECT COMMAND REFERENCE NUMBER RECEIVED.? 
?i»Ni«AREFER TO PATHFINDER FOR EXPLANATION OF CODES.? 
?«NlfARECEIVED INVALID MESSAGE NUMBER FROM INTERNAL DRIVE TEST. 



t *************************************************************** 

MISCELLANEOUS ERROR MESSAGES 



114 


105 


123 


LESI:: 


.ASCIZ 


7LESI ADAPTER? 


103 


117 


116 


CTRL:: 


.ASCIZ 


7C0NTR0LLER/CABLE? 


114 


.05 


123 


LSCT:: 


.ASCIZ 


7LESI/C0NTR0LLER/CABLE? 


104 


122 


111 


DRVE:: 


.ASCIZ 


7DRIVE7 










.EVEN 





MANUAL TEST MESSAGES 



045 


116 


045 


TlOMSl 


:. ASCIZ 


045 


116 


062 


T10MS2 


: .ASCIZ 


045 


116 


045 


T10MS3 


: .ASCIZ 


045 


116 


045 


T10MS4 


: .ASCIZ 


045 


116 


045 


TllMSl 


:. ASCIZ 


045 


116 


045 


T12MS1 


:. ASCIZ 


045 


116 


045 


T13MS1 


: .ASCIZ 


045 


116 


062 


MMSG : : 


ASCIZ 


105 


156 


164 


SELTST 


: .ASCIZ 


111 


163 


040 


QUESTN 


ASCIZ 
.EVEN 



\i(NtfAT*»t 10: FUNCTIONAL FAULT DETECTION TEST (Drive Resident Test «1)\ 
\tfN2«A*** CAUTION ***\ 

VtfNKAThis test Mill destroy the data on tape.\ 

\«N«AMount a scratch tape UNTENSIONEO but THREADED. «N\ 

\«N«AT«st 11: TENSION FAULT ISOLA'^ION TEST (Drive Resident Test «2)\ 

\*N*ATest 12: VELOCITY FAULT ISOLATION TEST (Drive Resident Test ♦3)\ 

\tfN«ATe«t 13: SELECT A DRIVE RESIDENT TEST (Drive Resident Tests 1 99)\ 

\KN2tfA*** REFER TO PATHFINDER FOR TEST REQUIREMENTS BEFORE PROCEOING ***\ 

\Enter drive resident test nunber (l-99)\ 

Ms the drive ready (To bypass this test hit return)\ 
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SEQ 46 



1705 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1723 
1724 
1725 
1726 
1727 



.SbTTL GLOBAL ERROR REPORT SECTION 



GLOBAL ERROR REPORTS 

THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB 
AND PRINTX CALLS THAT ARE USED IN MORE THAN ONE TEST. 
IT ALSO INCLUDES THE ASCII MESSAGES THAT ARE USED BY 
THE PRINTB AND PRINTX CALLS. 



027002 

027002 
027002 
027002 
027006 
027012 
027016 
027020 
027022 



BGNMS6 



PRIINI:: 



013746 
012746 
012746 
010600 
104415 
062706 



002336 
022774 
000002 



000006 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 



♦LINEl.INISTP 

INISTP.-(SP) 

«LINE1.<(SP) 

«2,-(SP} 

SP.RO 

C»PNTX 

«6.SP 



1728 












1729 


027026 






PRISA: : 




1730 


027026 






PRINTX 


«LINE2 . TUS A( R4 ) . SAEXP . TUSASV ( R4 ) 




027026 


016446 


000012 


MOV 


TUSASV(R4).-(SP) 




027032 


013746 


002334 


MOV 


SAEXP. -(SP) 




027036 


016446 


000002 


MOV 


TUSA(R4).-(SP) 




027042 


012746 


023030 


MOV 


«LINE2.-(SP) 




027046 


012746 


000004 


MOV 


♦4.-(SP) 
SP.RO 




027052 


010600 




MOV 




027054 


104415 




TRAP 


C»PNTX 




027056 


062706 


000012 


ADD 


♦12. SP 


1731 


027062 


000137 


030624 


JflP 


FRUERR 



1732 
1733 
1734 



027066 



PRIPAD: 



1735 
1736 
1737 
1738 



027066 






PRINTX 


4LINE7.R2 


027066 


010246 




MOV 


R2.-(SP) 


027070 


012746 


023323 


MOV 


♦LINE7.-CSP) 


027074 


012746 


000002 


MOV 


♦2.-(SP) 


027100 


010600 




MOV 


SP.RO 


027102 


104415 




TRAP 


C»PNTX 


027104 


062706 


000006 


ADD 


♦6.SP 


027110 


000137 


027142 


JMP 


PRIDAT 


027114 






PRIVAO: : 




027114 






PRINTX 


4LINES.KPAR3.R2 


027114 


010246 




MOV 


R2.-(SP) 


027116 


013746 


172346 


MOV 


KPAR3,-(SP) 


027122 


012746 


023203 


MOV 


♦LINES. -(SP) 


027126 


012746 


000003 


MOV 


♦3.-(SP) 


027132 


010600 




MOV 


SP.RO 


027134 


104415 




TRAP 


C»PNTX 


027136 


062706 


000010 


ADD 


♦10. SP 



1739 
1740 



027142 



PRIDAT : : 
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1741 027142 PRIKTX 
027142 011246 MOV 
027144 010146 MOV 
027146 012746 023260 MOV 
027152 012746 000003 MOV 
0271S6 010600 MOV 
027160 104415 TRAP 
027162 062706 000010 ADO 

1742 027166 000137 030624 JMP 
1743 

1744 027172 PRIIP: : 

1745 027172 PRINTX 
027172 016446 000000 MOV 
027176 012746 023110 MOV 
027202 012746 000002 MOV 
027206 010600 MOV 
027210 104415 TRAP 
027212 062706 000006 ADO 

1746 027216 000137 030624 JMP 
1747 

1748 027222 PRIERR:: 

1749 027222 000137 030624 JMP 
1750 

1751 

1752 027226 WRINTO:: 

1753 027226 PRINTX 
027226 013746 002336 MOV 
027232 012746 022774 MOV 
027236 012746 000002 MOV 
027242 010600 MOV 
027244 104415 TRAP 
027246 062706 000006 AOO 

1754 

1755 027252 MRPRTE:: 

1756 027252 PRINTX 
027252 016446 000012 MOV 
027256 016446 000002 MOV 
027262 012746 023350 MOV 
027266 012746 000003 MOV 
027272 010600 MOV 
027274 104415 TRAP 
027276 062706 000010 ADO 

1757 027302 000137 030624 JMP 
1758 

1759 027306 ELPERR:: 

1760 027306 PRINTB 
027306 012746 023414 MOV 
027312 012746 000001 MOV 
027316 010600 MOV 
027320 104414 TRAP 
027322 062706 000004 ADO 

1761 027326 PRINTB 
027326 011546 MOV 
027330 012746 023436 MOV 
027334 012746 000002 MOV 
027340 010600 MOV 
027342 104414 TRAP 



«LINE6,R1.(R2) 

(R2),-(SP) 

R1,-(SP) 

«LINE6.-(SP) 

♦3.-(SP) 

SP.RO 

CIPNTX 

♦10. SP 

FRUERR 



«LINE3.TUIP(R4) 

TUIP(R4).-(SP) 

♦LINE3,-(SP) 

♦2.-(SP) 

SP.RO 

CIPNTX 

#6.SP 

FRUERR 



FRUERR 



♦LINEl.INISTP 

INISTP..(SP) 

«LINE1.-(SP) 

♦2.-(SP) 

SP.RO 

CIPNTX 

•6.SP 



MR1.TUSA(R4).TUSASV(R4) 

TUSASV(R4),-(SP} 

TUSA(R4).-(SP) 

«WR1.-(SP} 

♦3.-(SP) 

SP.RO 

CIPNTX 

*10.SP 

FRUERR 



«PKSENT 

#PKSENT.-(SP) 

#1,-(SP) 

SP.RO 

OPNTB 

*4.SP 

«CREFN0.(R5) 

(R5).-(SP) 

♦CREFNO.-CSP) 

♦2.-(SP) 

SP.RO 

OPNTB 



SEQ 47 



jCOMMANO/RESPONSE PACKET PRINTOUT 
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SEQ 48 





VDc r VO 


vvuvvo 


Ann 


AC CD 
vD t 3" 








rKXN IB 






W3V^D 




n D 


r CO ^ 


vc r ODc 


XDD3XD 


AAAA 1 A 

WW XV 


DTCD 


1 1\( '\ f CD ^ 


Uc r ODD 


Al 97AI^ 
VXc f 


VcOOW 


nuv 


AADmnC ^ CD ^ 


Uc r ODc 


VXc r 4D 


WWVc 


nuv 


VC t ■ V or ) 


yjd. t ODD 


/\4 /\C/\A 

VXVOvU 




nuv 


CD DA 

or ,KU 


( ^ fv 


1 i\AA 1 A 
Xv^^X*» 




TDAD 
1 KHr 


r 4DMTn 
L fKN 1 D 




VOc r VD 


wwvo 


Ann 


AC CD 

TO 9 or 


X 'DO r 0 r D 






rnlrl 1 d 


AMnnTTv 10^DQ'^ 

VnUUXr T , XcVKDy 




VXD jHD 


00001 P 
vvvvxc 


MOU 


1 pr D^ - r CP ^ 

Xc V, no 3 1 \. or ^ 


OP 7 A OP 
vc f "t vc 


01 P7AA 

VXC r 


OP'^SPO 

vc ^.^C V 


MOU 

riV ¥ 


wnuux" ■ I "V or j 


vc f ^VD 


Ol P7AA 
Vic f ^D 


AAAAAO 

WWVc 


MOW 

nuv 


AO .^QP^ 

vc , - V or ^ 


Vc f ^Ic 


UXVDVU 




Mnu 
nuv 


CD DA 
Or f KU 




1 (\AA\A 
XVHH X"» 




TDAD 




AP 1 A 
vc r^Xv 


VDc f VO 


OOOOOA 
WWVD 


Ann 


AA QP 
VD « or 


1 7AA OP7AP^ 
1 fO^ Vc/^cc 






PDTMTO 


WKbNwn, <D , x41Kd;> , <Df x3vH3;> t <D#lDlR3 J> « <D» 17CRS j> « <B «20C R5 7> , <B« 2! (R5)> 


vc rHcc 


VV3V^D 






_ / CD ^ 


Uc r Hc^ 


XODDXD 


AAAA34 

UUVVcX 


DX9D 


3 1 r DC ^ t CD ^ 


VC r ^ O V 


AACA^C 
WSV^D 






.fQD^ 


VC f^OC 


X3D3 Xv 


wvvcv 


DX9D 




Vc r^OD 


VV3V^D 






.rcD^ 


VC rH^V 


X3D3XD 


AAA01 7 
WVVX r 


DX9D 


1 7f DC^ rcD^ 


vc f "f^^ 


OOSOAA 

W JV**w 






-f SP) 


vc r**HD 


X3D3XD 


VWVXv 


DX9D 


XOln9 J ■ I 9r J 


ftP7ASP 
Vc r*t;3C 


VV^VHD 




ri ft 




Vc 


1 S A^ 1 A 
X^D^XD 


WW K.J 






VC r^DV 






n ft 


.f CP) 


0P7AAP 

vc ■ vc 


X Jv J Xv 


00001 A 
vv wx~ 


DX9D 




vc r ■•VV 


01 P7AA 

VXC r "f V 


OPSSA"^ 

vc ^ J "t ^ 


HOU 

•^IVw 




AP7A 7P 

Vc r H f C 


Ol P7AA 
VXc r *»D 


000007 
W WV r 


MOU 

■ iv V 




OP7A7A 
VC f V 


01 OAOO 
vx w vv 




rivv 


CP DA 


vC r J VV 


1 OAA 1 A 

XVH*» X*» 




TRAP 


riPMTR 


0P7SAP 

vc ' JVC 


0AP70A 

VvC • W 


OOOOPO 
wvvcv 


ADD 


*90 CP 


X rw^ VC r 






PPTNTR 
r nxn 1 D 


APKRFru 


VC f .^Vv 


01 P7AA 

VXC • "VV 


0P'?7OA 
vc <^ r Vv 


MOV 


fvntw w t • V Or / 


Vc r jXC 


01 P7AA 

VXC r tv 


000001 
w wvx 


HOV 


»X • V Or y 


VC r 3 XV 


01 OAOO 

vx VDVV 






CP PA 

Or jnW 


OP7SPO 
vc • JCV 


1 OAA 1 A 
XV**" x*» 




TRAP 


riPMTA 

l«rrH IP 


OP7^PP 

vc r jCC 


VDC r VD 


OOOOOA 
vv W V"» 


Ann 


M CP 

« Or 


1 7AA nP7^Pfi 
X rOv VC r ^Cv 






PRTMTR 

r HXn 1 D 


w\«Htr nu « ^ n o / 


ftP7^PA 
VC r 3Cv 


Oil "^AA 
VX XOHD 




HflU 
riuw 


^ n 0 / # • V Or J 


vc ■ J^V 


01P7AA 

VXC 1 ~ vJ 


0PXA3A 

vc ^ V 




M^RFrMO . f CP ) 

wvntr I^Uj Or J 


vc r 


01 P7AA 

VXc ' 


OOOOOP 
WWVC 


Hnu 


*« • * \ Or 7 


vc r j"fv 


01 OAOO 

vx WW 




MOW 
nv V 


CP Rfl 

Or I nv 


0P7S4P 
vc r J"tc 


10AA1A 

XV*t*»X*» 




TRAP 

1 11 Ar 




vc r j*r*f 


0AP70A 
VvC r VD 


OOOOOA 
www 


Ann 


Ml CP 

t Or 


1 7fi7 OP7SSO 
X ' V » vc r J JV 






PRTMTR 


VdlVtfUUw a t nO 


vc • JJw 


OOSOAA 




ri R 


-(CP') 
V Or 7 


0P7^SP 
vc r ^^C 


1 ^AXI A 
XDvOXv 


O0001 0 

WW XV 


RT(U) 
DXOO 


mrpT') rcP) 


vc r 


Ol P7AA 
VXC r •»v 


OP''57XA 


HOU 


vcnvwc f "\ Or y 


027562 


012746 


000002 


NOV 


•2.-(SP} 


027566 


010600 




nov 


SP.RO 


027570 


104414 




TRAP 


CtPNTB 


027572 


062706 


000006 


ADO 


46 SP 


1768 027576 






PRINTB 


#STATUS.12(R3) 


027576 


016346 


000012 


MOV 


12(R3),-(SP) 
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A1 07AC 

Vic '4D 




nuv 


ACTATIIC ^ CD ^ 

ws 1 A lUS. -lor J 




A9 7&A£ 


A1 OTAti 
Vie r 40 




nuv 


AO rCD^ 

•c , - lar J 






A1 AiLAA 




nuv 


CD OA 
or ,KU 




A137iL1 A 


1 AAA 1 A 




TOAD 

tHnr 


L I r N 1 D 




A^7iL 1 <L 

Ue 'OlD 


Uoe > vio 




Ann 


AC CD 


1 »OT» 


A07iL93 

Uc roce 






DDTUTD 
rKXN 1 D 


AODPUCD lA^DT^ 
WKoVtK, 141K0J 




Uc 'Dee 


A1 t^XAC 
V10o4b 




nuv 


141KAJ . -I5r J 




Ue f Oco 


A1 ^"JAti. 
Vie ' 40 


Uc ^ ' '3 


HAU 

nuv 


AOOfUCD ^ CD ^ 




A07iLV9 


A1 97Ae 
Ule r4D 




nuv 


AO ^cdS 
•c « - V br J 






A1 AiLAA 
UlVOUU 




MAU 

nuv 


CD DA 










TD AD 


L * rn 1 0 






Uoe (vO 




AAA 


AA CD 
TO t or 




A07£.A£ 






DDTUTD 


ATTMmiT 1 DT ^ 




/^0 7&AiL 


VV3VHO 




n D 


( CD 






X9O01O 




DXdD 


131K0 J ( I Sr J 




A37&» 
vc IOj^ 


UXC ' Ho 




MAU 

nuv 


AT TMfU IT . f CD ^ 




Ue/ODU 


A1 97 Ail 

0x2 '4o 




HAU 

nuv 


»c , - 1 ar ^ 






vxuDvv 




MAU 

nuv 


CP on 

Or ,nV 




/\37<L<i- 
Uc (ODO 


mAAl A 




TOAD 

Innr 


V » rn 1 D 




Ue (O (U 


UOc • uo 




Ann 


AA CD 


1 771 
I'll 


Uc rO 








API ARC <B 1AfO'<^> 




Uc rO 1^ 


nn^nA& 

UU3UHO 




n D 


.f CD^ 






X303X0 


AAAAt 


men 

DX9D 


lAfDH fCDI 




Aa77A9 


ni 37 AA 


A3 AAA 7 


MAU 
nuv 


ATI ARC .rCO^ 
wr Lflu9 $'\ or J 




n977AA 
Wc f f wo 


M 37 AA 
VXC »HO 




HAU 
nuv 


A3 . f CO ^ 

»C f - V 9r J 




Ue 1 1 xc 


VXwOVV 




MAU 
nuv 


CO on 




1 1 m 


1 nAA 1 A 

XUHHXH 




TDAP 


Lvrn ID 




1 1 xo 


VOC r VO 


AAAAAC 


AAA 


AA CO 

WO t 9r 


1 773 


Vc ' fee 


nOAl 17 


A^A6PA 


IMP 


FDIVDD 


X f 1 o 












1 774 


n3773<i 










1 77"; 


rt3773<i 
Vc r r cO 






PPTMTR 


APKCPMT 




03773/» 

VC f r Cv 


rtl 37AA 
VXC f HO 




MAU 


Vr'VjtH 1 • Or J 




Uc / ' Oc 


A1 37A& 
Vie » HO 


AAAAAt 


MAU 

nuv 


A1 fCO') 




n377Xfc 
VC f r OO 


A1 oAnn 
vxvovv 




MAU 
nuv 


CD QA 
jr f n V 




VC f » ■tv 


1 AAA1 A 
XVHHXH 




TPAP 






f>37743 
Vc » » HC 


AC07Ae 

VOC f VO 




AAA 


AA CP 

VH t 3r 


1 77A 


Vc » » HO 






PPTMTA 


ATDFPMn (OK^ 




VC ' f HO 


VX X3HO 




MAU 
nuv 


fO«?l .fCP^ 
\n3 J t -\ 9r J 




ft377Sn 
VC f f JV 


ni 37 AA 
VXC r HO 




MAU 


▼\»nc~ l»w» \ or / 




A077C* 

vc # f JH 


01 37 AA 
VXC f HO 




MAU 
nuv 


A3 . f CP S 
▼c t \ 9r ^ 




n377ftO 
vc » f OV 


vxvovv 




MAU 
nuv 


CP on 




VC f r 0 C 


1 nAA 1 A 
XVHHXH 




TPAP 

1 n Ar 


riPMTB 
\^9rni9 




A077CA 
Vc 1 f OH 


VOC ( VO 


AAAAAi; 


AAA 


AA CO 

^0 p or 


1 777 

XIII 


f>3777ft 
Vc 1 1 f\J 






PPTMTA 


vurLuuc • *D t xvi 10 J 




n3777ft 

Vc 1 1 lyj 


AACAAA 

VU jVHO 






.f CD^ 




n37773 
Vc 1 1 Ic 


1i\A<>1A 
X303X0 


AAAA1 A 




infD^'t TCP') 
XvVn^y t V or ^ 




vc t t to 


ftl 37AA 
VXC f HO 




HAU 
nuv 


AfiPrnnp . f cp ^ 

wur ^ vmc i - V or ^ 




AlAAAp 

vowvc 


ni 37 AA 
VXC r HO 




HAU 
nuv 


A3 - f CO S 
VC # - V Or J 




A7AAAX 

vowvo 


A1 AAon 
vxvovv 




HAU 


SP.RO 




V JVVXV 


inAAIA 
XVHH XH 




TRAP 


PiPNTR 
\m V rn 1 D 




030012 


062706 


000006 

w v>r w 


ADD 


M.SP 


1778 


030016 






PRINTB 


#H00IFY,12(R5) 




030016 


016546 


000012 


nov 


12(R5). -(SP) 




030022 


012746 


023520 


HOV 


*MOOIFy,-(SP) 
♦2.-(SP) 




030026 


012746 


000002 


nov 




030032 


010600 




nov 


SP.RO 



SEQ 49 
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SEQ SO 



030034 


104414 




TRAP 


OPNTS 


030036 


062706 


U00006 

WWW 


ADD 


#6.SP 


1779 030042 






PRINTS 


MYTCNT 14(R5) 


030042 


016546 


000014 

W^ir A~ 


MOV 


14(R51 -CSP) 


030046 


012746 


023627 


MOV 


•flYTCNT -fSP5 


030052 


012746 


000002 


MOV 


♦2, -CSP) 


030056 


010600 

w w 




MOV 


SP.RO 


030060 


104414 




TRAP 


CtPNTB 


030062 


062706 


000006 

W W^r ^^^^ 


ADD 


^,SP 


1780 030066 






PRINTS 


MUFDES 20(R5) 


0^0066 


016546 


000020 


HOV 


20(R5). ''SP) 


030072 


012746 


023653 


MOV 


MUFOES (SP) 


030076 


012746 


000002 


MOV 


♦2, -(SP ) 


030102 


010600 




MOV 


SP.RO 


030104 


104414 




TRAP 


OPNTB 


030106 


062706 


000006 


ADO 


^,SP 


1781 030112 






PRINTS 


fPKRECV 


030112 


012746 


023706 


MOV 


•PKRECV. -(SP) 


030116 


012746 


000001 


nov 


♦1,-(SP) 


030122 


010600 




MOV 


SP.RO 


030124 


104414 




TRAP 


OPNTS 


030126 


062706 


000004 


AOO 


M.SP 


1782 030132 






PRINTS 


«CREFN0.(R3) 


030132 


011346 




MOV 


(R3) . -CSPI 


030134 


012746 


023436 


MOV 


*CREFNO. •(SP) 


030140 


012746 


000002 


nov 


♦2, -CSP) 


030144 


010600 




nov 


SP.RO 


030146 


104414 




TRAP 


CtPNTB 


030150 


062706 


000006 


AOO 


#6 SP 


1783 030154 






PRINTS 


•ENCODE . <B , 10( R3 ) > 


030154 


005046 




CLR 


-CSP) 


030156 


156316 


000010 


BISB 


10(R3).(SP) 


030162 


012746 


023734 


lOV 


•ENCODE. -CSP) 


030166 


012746 


000002 


nov 


•2,-(SP) 
SP.RO 


030172 


010600 




nov 


030174 


104414 




TRAP 


OPNTS 


030176 


062706 


000006 


AOO 


•6,SP 


1784 030202 






PRINTS 


♦STATUS, 12(R3) 


030202 


016346 


000012 


nov 


12(R3),-(SP) 


030206 


012746 


023755 


HOV 


♦STATUS, -CSP) 


030212 


012746 


000002 


nov 


♦2. -(SP) 


030216 


010600 




nov 


SP.RO 


030220 


104414 




TRAP 


OPNTS 


030222 


062706 


000006 


ADO 


#6,SP 


1785 030226 






PRINTS 


•6YTCNT.14(R3) 


030226 


016346 


000014 


nov 


14(R3).-{SP) 


030232 


012746 


023627 


nov 


♦BYTCNT. -(SP) 


030236 


012746 


000002 


nov 


♦2.-(SP) 


030242 


010600 




nov 


SP.RO 


030244 


104414 




TRAP 


CIPNTB 


030246 


062706 


000006 


ADD 


♦6.SP 


1786 030252 


000137 


030624 


jnp 


FRUERR 


1787 










1788 030256 






GDSERR: : 




1789 030256 






PRINTS 


♦PKSENT 


030256 


012746 


023414 


nov 


♦PKSENT.-(SP) 


030262 


012746 


000001 


nov 


♦l.-(SP) 
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030266 


A 1 A£ AA 

010600 




nuv 


CD DA 
or ,KU 




030270 


1 nA A i A 

104414 




TOAD 






030272 


A^ 07A£ 

062706 


AAAAAA 


Ann 


AA CD 


1790 


030276 






DDTUTQ 
rKlN 1 D 






03027© 


A4 4 C il £ 

011346 




nuv 


V njj , - V Or J 




030300 


012746 


AO Vil 

023436 


MAU 

nuv 


ACorruA f CD ^ 

vLntrNU 1 - ^ or J 




AVATAR 

030304 


012746 


AAAAA9 
000002 


MAU 

nuv 


wc t -K or J 




030310 


A 4 A£ A A 

010600 




HAU 

nuv 


QD Dn 
dr » nu 




AVAV t O 

030312 


1044 14 




TDAP 


r ADMTR 
\m 9 rn 1 D 




A V A V 1 d 

030314 


002706 


AAAAA^ 

OUOUUD 


Ann 


AA QP 

IrO f Or 


1791 


AV AV ^A 

030320 






PQTMTR 


Anprnnr <fl infD^)> 




AV AV^A 

030320 


AACA4£ 

005046 






f CP ^ 

- 1 Or J 




030322 


156316 


AAAA1 A 

OUOOlO 


DX9D 


XUVn3y « V Or J 




AT AV t£ 

030326 


A 4 '%^M£ 

012746 


AO VC AA 

023500 


MAU 

nuv 


Anprnnp .rcp^ 

VUrLUUCi 'xOr J 




AV AWt 

030332 


At t^AC 

012746 


AAAAA9 

000002 


MAli 

nuv 


» " V Or J 




030336 


At A£ AA 

010600 




MAU 

nuv 


CP OA 




AVAV A A 

030340 


4 Ail il 4 il 

104414 




TQAP 

1 nnr 


riPNTR 
^ f rH 1 D 




AV AV A t 

030342 


A£ OTA£ 

062706 


AAAAA& 


Ann 
nun 


Alk CP 
VD ■ 9r 


1792 


03034D 






PQTMTR 


AHnnTrv i or rsi 

vnui/xr 1 1 xc ^ y 




AVATAR 

03O34O 


W1654D 


UUUOlc 


Hnu 

riu¥ 


IPf RSI .rsPi 

xcvn^'ff «^r I 




030332 


A1 '^'JAC 

012 r 46 


Oc33cU 


Mnu 
nuv 


AHnnXFY .f^PI 
vnuuxr 1 « *\ i 




AV ATCf 

03033O 


A4 7ilC 

0: w746 


AAAAA9 

000002 


Hnu 
nuv 


A9 . f CP 1 




AY AV£.^ 

0303d2 


A4 A£AA 




Hnu 
nuv 


CP RO 




ATAI^A 

0^U3d4 


4 A^A 1 A 




TDAP 






O303DO 


A^ 07A£ 

062706 


AAAAAil 


Ann 


A& QP 
wo i3r 


1793 


Al Al 79 

03U3 id 






PRTNTA 

rF%X«^ 1 0 


APKDPrU 

l\nK^ V 




AV AV 

030372 


A4 07d& 

012746 


A9V7AC 

Uc3rUD 


Mnu 
nuv 


Wrl\fftWV * Or ^ 




030376 


A4 O^Ail 

012 '40 


AAAAA1 


Mnu 
nuv 


A1 .fCPI 
VX f • \ Or ^ 




Q30402 


A1 AilAA 
01U6V/U 




Hnu 


OP Dn 

^Ir » nv 






1 t\AA 1 A 




TDAP 

1 F%Ar 


rtPNTR 

w ▼ rn 1 0 




ATA^ A£ 


U62 'U6 


AAAAAA 


Ann 


M CP 

t Jr 


179h 


AIA^ 4 9 






PDTNTR 

r nXn 1 D 


#CRFFNO fDS) 
▼vnt* nv 1 \ n ^ y 




A1 A^ 1 O 

U3\MIc 


A1 1 XAC^ 




Hnu 

nuv 






AVAii 4 it 

030414 


A4 AC 

012746 


Vc34 3D 


Hnu 
nuv 


WUnt" nu » " \ 3r ^ 




A V A4 OA 

030420 


A1 

012 f 46 






A9 .reps 




AIA^ 


A1 AilAA 




Hnu 


CP DA 




AVAA 9£ 

030426 


4 t\AA 1 A 
104414 




TDAP 


rtPNTR 

C "rn 1 D 




ATA^ TA 

U0043U 




AAAAA^ 


AOO 


#6 SP 


1795 


030434 






PDTNTR 




ATA^TA 


0\J3U4e 




f 1 R 


•(SP) 




03U43O 


150316 


AAAA1 A 


RT^ 






03044c 


A4 07A£ 
012 '46 




Hnu 
nuv 






ATA^ AC 

030446 


A4 07A£ 

012 '46 


AAAAA9 


Hnu 
nuv 


A9 *rcpi 




AVA^ CO 

0304^)2 


A4 A^AA 




Hnu 

riu V 


CP Rn 




AVA^ KA 


1W44 14 




TRAP 


CIPNTB 

V ▼ • 1^ 1 0 




AT A^ 

030436 


woe rUO 


AAAAA^ 


Ann 


AA CP 

» jr 


1796 


AY A4 £0 

030462 






PDTNTR 


ACTATIIC t9rR3) 

wo 1 A 1 U9 1 XC V n w 7 


ATAA&O 

03U4DC 


U10340 


AAAA« 9 


Hnu 






AT 

030466 


A4 07A£ 

012'46 


A917CC 

U23r55 


Hnu 
nuv 


ACTATIIC .rCPI 
wO 1 A 1 \JO • V 9v ' 




ATA^ 70 

U3U4 r2 


A1 07A& 
012'40 


AAAAA9 


Hnu 


▼C # V jr i 




0304 (b 


A1 AiLAA 
OlWOUU 




Hnu 


fiP DO 

jr 1 r% V 




AV AKAA 

030500 


4 AAA 4 A 
104414 




TDAP 

1 n Ar 


TiPNTR 






fMi97Q6 


000006 


ADO 


#6.SP 


1797 


030506 






PRINTS 


«rLA6S,<B.17(RS)> 




030506 


005046 




CLR 


-(SP) 




030510 


156316 


000017 


BISB 


17(R3).(SP) 




030514 


012746 


024047 


nov 


«fLA6S.-(SP) 
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1798 
1799 
1800 
1801 



1S02 



1803 
1804 
1805 
1806 



1807 
1808 
1809 
1810 



1811 
1812 



1813 
1814 



1815 



030520 
030524 
030526 
030530 
030534 

030540 
030540 
030540 
030544 
030550 
030552 
030554 
030560 
030560 
030564 
030570 
030572 
030574 
030600 

030604 
030604 
030604 
030610 
030614 
030616 
030620 



030624 
030624 
030624 
030630 
030634 
030640 
030642 
030644 

030650 
030650 
030652 

030654 
030654 
030654 



012746 
010600 
104414 
062706 
000137 



012746 
012746 
010600 
104414 
062706 

012746 
012746 
010600 
104414 
062706 
000137 



012746 
012746 
010600 
104414 
062706 



013746 
012746 
012746 
010600 
104414 
062706 



000167 
000000 



104423 



000002 



000006 
030624 



024066 
000001 



000004 

025452 
000001 



000004 
030624 



025534 
000001 



000004 



002330 
023140 
000002 



000006 



MOV 

MOV 

TRAP 

ADO 

JMP 



INTHSG:: 



INVMSG: 



FRUERR: 



PRIEX: 



L10003: 



PRINTS 

MOV 

MOV 

MOV 

TRAP 

AOO 

PRINTS 

Mnv 

MOV 

MOV 

TRAP 

AOO 

JMP 



PRINTS 

MOV 

MOV 

MOV 

TRAP 

ADD 



PRINTS 
MOV 

nov 

NOV 

nov 

ADO 

EXIT 

.UORO 

.WORD 

ENOnSG 

TRAP 



#2.-(SP) 

SP.RO 

C»PNTB 

«6.SP 

FRUERR 



♦FAULTC 

♦FAULTC.-(SP) 

♦l.-(SP) 

SP.RO 

CtPNTS 

♦4.SP 

«URER6 

«URER6.-(SP) 

♦l.-(SP) 

SP.RO 

CIPNTS 

♦4.SP 

FRUERR 



«URER7 

♦WRER7.-(SP) 

♦l.-(SP) 

SP.RO 

CIPNTS 

*4.SP 



4LINE4.FRUIS 

FRUIS.-(SP) 

#LINE4.-(SP) 

♦2.-(SP) 

SP.RO 

CIPNTB 

«6.SP 

MSG 

jtjnp 

L10003-2-. 



CIMSG 



SEQ 52 
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1817 

1021 

1022 

1023 

1024 

102S 

1026 

1027 

1820 

1029 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

184C 

1841 

1842 

1843 

1044 

184S 

1846 

1047 

IMS 

1852 

1853 
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.SBTTL GLOBAL SUBROUTINES SECTION 



SEQ 5 



> : < 



(GLOBAL SUBROUTINES SECTION 

: THIS SECTION CONTAINS ALL SUBROUTINES AND 

J INTERRUPT SERVICE ROUTINES THAT ARE AC- 

CESSED FROn ANYUHERE IN THE PROGRAM. 

; I «4 
5 • •••••• •••••••••••••••••••• ••••««**««««««««***««4 



:TRAP4 



THE ADDRESS V THIS ROUTINE IS LOADED 
INTO VECTOR 4 WHENEVER THE PROGRAM IS 
ATTEMPTING TO ACCESS A PIECE OF HARDUARE 
FOR THE FIRST TIME. IT IS INTENDED TO 
CATCH NON-EXISTENT MEMORY TIMEOUTS IN 
THE EVENT THE HARDWARE IS NOT REM.LY PRE- 
SENT OR IS MALFUNCTIONING. IT SINPLY 
SETS A FLAG. INDICATING THE TRAP OCCURRED. 



1854 

1855 
1856 
1857 



1858 



030656 
030656 

030656 005237 002316 

030662 
030662 

030662 000002 



TRAP4: 



L10004: 



BGNSRV TRAP4 

INC TRP4FG 

ENOSRV 

RTI 



iSET THE FLAG - TRAP UCIMWH 
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SEO 54 



1863 

1864 

1865 

1866 

1867 

1868 

1869 

18"0 

1871 

1872 

1873 

18^4 

1875 

1876 

187' 

18'8 

1879 

1883 030664 
030664 

1884 

1885 
1886 
1887 
1888 
1889 

1890 030664 052764 
1891 

1692 030672 
1893 030672 
030672 

030672 00C002 

1894 



jINTRCV 

J THIS IS THE TU81 INTERRUPT HANDLER USED BY THE PRO- 

t GRAM WHEN INTERRUPTS HAVE BEEN ENABLED. IF THE 

J BRFALG IS CLEAR. THE ROUTINE SETS A FLAG INDICATING 

THE EXPECTED INTERRUPT OCCURRED. IF BRFLAG IS SET, 
J IT INOICATtS THAT PROCESOR PRIORITY WAS SET TO A 

J LEVEL THAT SHOULD HAVE INHIBITED THE INTERRUPT, SO 

THE ROUTINE SETS AN ERROR INDICATOR. 



INTRCV: : 



BGNSRV INTRCV 



000002 000014 5$: 

EXTINT: 
LI 0005: 



BIT 
BEQ 
HOV 
BR 

BIS 

ENOSRV 
RTI 



«BRFLAG,LUNrLG(R4) 
5t 

•0RPFLG,LUNFLG(R4) 
EXTINT 

♦INTFLG.LUNrLG(R4} 



J IF NOT PRIORITY LEVEL TESTING 
t THEN SKIP AROUND 
s ELSE SET FAILED BIT 
{RETURN 

{SET THE FLAG 
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SEQ 55 



1899 
1900 
1<»01 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1913 
1914 

1915 
1916 
1917 
191S 
1919 



1920 



030674 
030674 

030674 052764 000001 000014 



030702 
030702 

030702 000002 



1 1 > 



I ILL INT 



THIS HANDLER ROUTINE'S ADDRESS IS LOADED INTO THE 
CURRENT UUT'S VECTOR FOR ALL TESTS THAT DO NOT EN- 
ABLE DEVICE INTERRUPTS. 



I i ' 
i i< 



ILLINT:: 



BGNSRV ILLINT 



BIS 



•0RPFLG.LUNFL6(R4) 



L10006; 



ENDSRV 
RTI 
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SEQ 56 



1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1940 

1941 030704 

1942 0W04 

" :0704 012746 OOOOOOG 
030710 012746 030656 
030714 012746 000004 
030720 012746 000003 
030724 104437 
030726 062706 000010 

1943 030732 005037 002362 

1944 030736 005737 177746 

1945 030742 005737 002316 

1946 030746 001005 

1947 030750 052737 000014 177746 

1948 030756 005237 002362 

1949 030762 

030762 012700 000004 
030766 104436 

1950 030770 005037 002316 

1951 030774 000207 
1952 



CHKCAC 

THIS RO'JTINE IS USED IN THE DATA WRAP TEST TO CHECK IF 
CACHE MEMORY IS PRESENT AND ENABLED ON THE SYSTEM BEING 
TESTED. IF SO. CACHE IS DISABLED BEFORE PROCEEDING 
TO PREVENT THE TEST FROM INCORRECTLY REPORTING AN ERROR. 



CHKCAC:: 



SETVEC 


♦VEC4.#TRAP4,*PRI07 


iSET UP FOR POSSIBLE ILLEGAL 


MOV 


•PR107.-(SP) 


MOV 


♦TRAP4,-(SP) 




MOV 


•VEC4.-(SP) 




MOV 


♦3.-(SP) 




TRAP 


CtSVEC 




ADD 


♦10. SP 




CLR 


CPFLAG 


i CLEAR "CACHE PRESENT" FLAG 


TST 


CCR 


sREAD CACHE CONTROL REGISTER 


TST 


TRP4FG 


i CACHE PRESENT ? 


BNE 


101 


(NO, BRANCH 


BIS 


«OISCAC.CCR 


: DISABLE CACHE 


INC 


CPFLAG 


;SET "CACHE PRESENT" FLAG 


CLRVEC 


«VEC4 


(RESTORE VECTOR 


MOV 


«VEC4,R0 




TRAP 


CtCVEC 




CLR 


TRP4FG 


(MORE HOUSEKEEPING 


RTS 


PC 
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1957 
19S8 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1973 

1974 030776 

1975 030776 

030776 012746 000340 
031002 012746 030656 
031006 012746 000004 
031012 012746 000003 
031016 104437 
031020 062706 000010 

1976 031024 005737 177572 

1977 031030 

031030 012727 000001 

031034 000000 

031036 013727 002116 

031042 000000 

031044 005367 177772 

031050 001375 

031052 005367 177756 

031056 001367 

1978 

1979 031060 005737 002316 

1980 031064 001026 

1981 031066 005237 002314 
1982 

1983 031072 005737 172516 

1984 031076 

031076 012727 000001 

031102 000000 

031104 013727 002116 

031110 000000 

031112 005367 177772 

031116 001375 

031120 005367 177756 

031124 001367 

1985 

1986 031126 005737 002316 

1987 031132 001005 

1988 031134 005237 002314 

1989 031140 000402 
1990 

1991 031142 005037 002314 
1992 

1993 031146 

031146 012700 000004 
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SEQ 57 



iKTTEST 

5 THIS SUBROUTINE IS USED BY THE INIT CODE TO 

s DETERMINE IF THE MEMORY MANAGEMENT UNIT IS 

J PRESENT. IF SO. IT RETURNS A FLAG IN THE 

I SET STATE. OTHERWISE THE FAL6 IS CLEAR IN 

WHICH CASE TEST SEVEN IS BYPASSED. 



KTTEST: 



NOKT: 
KTEXT: 



SETVEC 


«VEC4,«TRAP4.«PRI07 :SET UP FOR POSSIBLE 


MOV 


•PRI07.-(SP) 




MOV 


♦TRAP4.-(SP) 




MOV 


♦VEC4,-(SP) 




MOV 


♦3.-(SP) 




TRAP 


C*SVEC 




ADO 


♦10. SP 




TST 


MMUSRO 


(ARE YOU THERE. MhU? 


DELAY 


1 


iCIVE NXM TIMEOUT A CHANCE 


MOV 


♦l.CPO* 




.WORD 


0 




MOV 


LIOLY. CPC)» 




.WORD 


0 




DEC 


-6(PC) 




BNE 


.-4 




DEC 


-22(PC) 




BNE 


.-20 




TST 


TRP4FG 


I IF NXM OCCURRED 


BNE 


NOKT 


( THEN NO MMU IS PRESENT 


INC 


KTFLAG 


1 ELSE SAY WE FOUND 18 BIT 


TC T 

TST 


MMUSRS 


iNOW LOOK FOR 22 BIT MAPPING 


DELAY 


1 


{GIVE NXM A CHANCE 


nov 


•l.CPC). 




.WORD 


0 




MOV 


LIDLY.CPO* 




.WORD 


0 




DEC 


-6(PC) 




BNE 


.-4 




DEC 


-22(PC) 




BNE 


.-20 




TST 


TRP4F6 


sIF NXM OCCURRED 


BNE 


KTEXT 


I THEN 18 BIT IS ALL WE'VE 


INC 


KTFLAG 


« ELSE SAY WE'VE GOT 22 BIT 


BR 


KTEXT 


: AND BRANCH AROUND NEXT 


CLR 


KTFLAG 


I NO MMU - CLEAR FLAG 


CLRVEC 


«VEC4 


jRESTORE VECTOR 


MOV 


«VEC4.R0 





> 
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031152 104436 TRAP C»CVEC 

1994 031154 005037 002316 CLR TRP4FG jMORE HOUSEKEEPING 

1995 031160 000207 RTS PC 
1996 

1997 
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SEQ 59 



2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2021 
2022 



2023 
2024 
2025 



031162 
031162 
031162 
031166 
031172 
031176 
031202 
031204 



> t ' 
: t ' 



jRSTVEC 



1 

1****4 

RSTVEC: 



012746 000000 

012746 030674 

016446 000004 

012746 000003 
104437 

062706 000010 



031210 000207 



THIS ROUTINE IS CALLED FROM VARIOUS PLACES 
IN THE PROGRAM TO SET THE UUT'S INTERRUPT 
VECTOR WITH THE ADDRESS OF A HANDLER ROUTINE 
WHICH WILL CATCH ILLEGAL DEVICE INTERRUPTS, 
SPECIFICALLY "ILLINT". INTERRUPT PRIORITY 
IS SET TO 0. 



SETVEC TUVEC(R4).«ILLINT,«PRI00 

MOV #PRI00.-(SP) 

MOV flLLINT.-CSP) 

MOV TUVEC(R4),-(SP) 

MOV M.-CSP) 

TRAP CtSVEC 

ADD no.sp 



RTS 



PC 
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GLOBAL SUBROUTINES SECTION 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2049 

2049 

2053 031212 
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1 1 



SEQ 60 



t ! ' 



VECTOR 



THIS ROUTINE IS CALLED FROM VARIOUS PLACES 
IN THE PROGRAM TO SET THE UUT'S VECTOR UITH 
THE ADDRESS OF A HANDLER ROUTINE WHEN DEVICE 
INTERRUPTS HAVE BEEN ENABLED. THE ROUTINE HAS 
TWO MOOES OF OPERATION: WHEN BRFLA6 IS CLEAR, 
PROCESSOR PRIORITY IS SET TO ZERO. ALLOWING 
DEVICE INTERRUPTS. IF BRFLAG IS SET. PRIORITY 
IS SET TO 7. IF AN INTERRUPT OCCURS IN THIS 
CASE. AN ERROR IS RETURNED BY THE HANDLER 
ROUTINE. "INTRCV". 



VECTOR: 



2054 


031212 


032764 


000004 000014 




BIT 


«BRFLAG.LUNFLG(R4) , 


2055 


031220 


001014 






BNE 


5» ; 
TUVEC( R4 ) . «INTRC V . «PRIOO 


2056 


031222 








SETVEC 




031222 


012746 


000000 




MOV 


«PRIOO.-(SP) 




031226 


012746 


030664 




MOV 


♦INTRCV, -(SP) 




031232 


016446 


000004 




MOV 


TUVEC(R4),.(SP) 




031236 


012746 


000003 




MOV 


♦3,-(SP) 




031242 


104437 






TRAP 


C»SVEC 




031244 


062706 


000010 




ADO 


«10,SP 


2057 


031250 


000413 






BR 


EXTVEC 1 


2058 














2059 


031252 






5$: 


SETVEC 


TUVEC(R4). ♦INTRCV, »PRI07 




031252 


012746 


000340 




f.OV 


♦PRI07.-(SP) 




031256 


012746 


030664 




MOV 


♦INTRCV, -(SP) 




031262 


016446 


000004 




nov 


TUVEC(R4}.-(SP) 




031266 


012746 


000003 




nov 


♦3,-(SP) 




031272 


104437 






TRAP 


C»SVEC 




031274 


062706 


000010 




ADO 


♦10. SP 


2060 














2C61 


031-00 


000207 




EXTVEC : 


RTS 


PC 



THEN SKIP TO SECOND HALF 
;ELSE LOW PRIORITY 



:HIGH PRIORITY 



2062 
2063 
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SEQ 61 



2068 

2069 

2070 

2071 

2072 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

2084 

2085 

2089 

2090 

2091 031302 

2092 031302 
2C93 031306 

2094 031312 

2095 031314 

2096 031320 

2097 031322 

2098 031326 
2099 

2100 



iPDELAY 



005037 002350 
005337 002344 
001373 

005337 002346 
001002 

005237 002350 
000207 



THIS ROUTINE IS USED THROUGHOUT THE PROGRAn TO PROVIDE 
A VARIABLE AMOUNT OF DELAY TIME. THE OELAr WILL BE 
INSTRUCTION EXECUTION TINE DEPENDENT. TMO VALUES MUST 
BE LOADED BY MAINLINE CODE PRIOR TO CALLING PDELAY: 
"INNER" AND "OUTER". IF SUFFICIENT CALLS TO PDELAY ARE 
MADE SUCH THAT THE OUTER COUNT IS EXHAUSTtD, THE ROUTINE 
RETURNS "TOUT' EQUAL TO 1, INDICATING TIMEOUT HAS OCCURRED. 
"INNER" SHOULD BE RE-LOADED BY MAINLINE CODE, PRIOR TO 
CALL TO PDELAY UITHIN A TIMING LOOP. 



PDELAY:: 

CLR 
DEC 
BNE 
DEC 
BNE 
INC 

PDLYEX: RTS 



TOUT 

INNER 

PDELAY 

OUTER 

PDLYEX 

TOUT 

PC 



CLEAR TIMEOUT INDICATOR 
IF COUNT NOT EXHAUSTED 

THEN KEEP LOOPING 
IF MAJOR COUNT NOT 0 

THEN LEAVE UITH STATUS 

ELSE SET TIMEOUT 



OK 
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SEQ 62 



2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 031330 

2127 031330 

2128 031334 

2129 031342 
031346 
031350 
031354 
031356 
031362 
031364 
031370 

2130 031372 

2131 031400 
2132 

2133 

2134 031406 

2135 031410 

2136 031416 
2137 

2138 031420 
2139 

2140 031424 
2141 



005037 
012774 
012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
017464 
022764 



001004 
013774 
000402 

005237 

000207 



I 1****4 

isTEPl 

: 
i 

! 

I 
> 
i 
I 



THIS SUBROUTINE IS RESPONSIBLE FOR PERFORMING 
STEP 1 OF THE UQ-PORT INIT SEQUENCE. SPECIFI- 
CALLY. IT WILL INITIALIZE THE UUT BY WRITING 
TO ITS IP REGISTER. AFTER A BRIEF DELAY. IT 
MILL READ THE SA REGISTER TO INSURE THAT THE 
STEP 1 BIT IS SET AND THE ERROR BIT IS CLEAR. 
IT WILL THEN WRITE THE FIRST LOCATION OF THE 
STEP TABLE CSET UP BY MAINLINE CODE) TO THE 
UUT'S SA REG. IF ALL STEPS COMPLETE SUCCESS- 
FULLY THE ROUTINE RETURNS "STEPST" CLEARED} 
OTHERWISE "STEPST" IS RETURNED INDICATING A 
FAILURE OCCURRED. 

I • «***««****««****«*««********«*««**«*««*«**«***********««««*««** 



002340 

000000 000000 
000001 

002116 

177772 

177756 

000002 000012 
004600 000012 



002272 000002 
002340 



STEPl: : 



CLR 

MOV 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

MOV 

CMP 



BNE 
MOV 
BR 



(CLEAR THE STATUS INDICATOR 
I INIT THE UUT 



STEPST 

*0.8TUIP(R4) 
♦l.CPO* 

0 

LIDLY.(PC)» 

0 

-6(PC) 
.-4 

-22(PC) 
.-20 

9TUSAiR4).TUSASV(R4) :GET THE SA REG CONTENTS 
0e.Sl!B.Dl!B.00,TUSASV(R4) 

;IF ALL THE RIGHT BITS AREN'T SET 
STPIER i THEN TAKE ERROR EXIT 

STPTBL.»TUSA(R4), ELSE URITE HOST'S STEP 1 RESPONSE 
STPIEX t AND LEAVE SHOWING SUCCESS 



STPIER: INC 
STPIEX: RTS 



STEPST 
PC 



tSET ERROR INDICATOR 
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SEQ 67. 



2146 
2147 
2148 
2149 

2150 
2151 
2152 
2153 
2154 
2155 
2159 

2160 031426 



I » •*•♦•' 

Ibakpat 

I 
; 
i 



THIS SUBROUTINE WILL FILL THE COMMUNICATION WITH AN 
ALL I'S DATA PATTERN. THE LENGTH Of THE AREA IN USE 
BY THE CURRENT TEST IS CONTAINED IN "CMARLG". 



BAKPAT:; 



2161 


031426 


012702 


060000 


MOV 


«C0MMBF,R2 


2162 












2163 


031432 


012703 


000024 


MOV 


«20. ,R3 


2164 


031436 


006303 




ASL 


R3 


2165 


031440 


063703 


002326 


ADO 


CMARLG. R3 


2166 


031444 


012722 


177777 


1*: MOV 


*-l.(R2)* 


2167 


031450 


005303 




DEC 


R3 


2168 


031452 


001374 




BNE 


1) 


2169 












2170 


031454 


000207 




RTS 


PC 



(STARTING ADDRESS OF COMM AREA 
i-20 UORDS 

;BUFFER LENGTH IN FRONT OF AREA 

:MULTIPLIEO BY 2 

(ADD COMM AREA LENGTH USED 

lURITE THE DATA 

;IF NOT DONE YET 

i THEN 00 IT AGAIN 



2171 
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SEQ 64 



2:76 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2194 
2^85 
.'186 
2187 
2188 
2189 
2193 

2194 031456 



t < < 



jCHKCOM 



THIS ROUTINE IS CALLED BY TESTS DOING THE PURGE/POLL 
CHECK. IT IS USED TO VERIFY THAT THE PORT LEFT THE 
COMMUNICATIONS AREA CLEARED. ADDITIONALLY. IT CHECKS 
THE 20 WORDS PRECEDING AND SUCCEEDING THE COMM AREA 
TO MAKE SURE THE PORT DIDN'T GO OUTSIDE THE COMM AREA. 



CHKCOM:; 



2195 031456 


012701 


177777 






MOV 


♦-1.R1 


iTEST DATA 


2196 031462 


012702 


060000 






MOV 


«C0nMBF,R2 


{STARTING ADDRESS 


2197 031466 


012703 


000022 






MOV 


♦18..R3 


» FIRST COWT 


2198 031472 


020122 






1<: 


CMP 


R1.(R2)* 


llF NOT ALL I'S 


2199 031474 


001022 








BNE 


15) 


1 THEN GO REPORT ERROR 


2200 031476 


005303 








DEC 


R3 


iIF NOT ALL DONE 


2201 031S00 


001374 








BNE 


It 


i THEN GO CHECK ANOTHER 


2202 
















2203 031502 


005001 








CLR 


Rl 


iTEST DATA FOR PRINTOUT 


2204 031504 


013703 


002326 






MOV 


CMARLG.R3 


(SET UP COUNTER FOR COMM AREA 


2205 031510 


005722 






5t: 


TST 


CR2)» 


iIF NOT 0 


2206 031512 


001013 








BNE 


15 1 


1 THEN GO REPORT ERROR 


2207 031514 


00530 








DEC 


R3 


J IF NOT ALL DONE 


2208 031516 


001374 








BNE 


5) 


J THEN GO CHECK ANOTHER 


2209 
















2210 031520 


012701 


177777 






MOV 


♦-1.R1 


iTEST DATA FOR PRINTOUT 


2211 031524 


012703 


000024 






MOV 


«20. .R3 


iSET UP COUNTER FOR POST COMM AREA 


2212 031530 


020122 






lot: 


CMP 


R1.(R2)* 


ilF NOT ALL I'S 


2213 031532 


001003 








BNE 


15t 


i THEN GO REPORT ERROR 


2214 031534 


005303 








DEC 


R3 


ilF NOT ALL DONE 


2215 031536 


001374 








BNE 


lOt 


t THEN GO CHECK ANOTHER 


2216 03 1540 


000425 








BR 


CKCMEX 


: ELSE RETURN 


2217 
















2218 031542 


162702 


000002 




15»: 


SUB 


#2.R2 


1 ADJUST ADDRESS FOR PRINTOUT 


2219 031546 


012737 


025632 


002330 




MOV 


«LESI.FRUIS 


iLGAO FAILING FRU 


2220 031554 


022737 


000010 


002114 




CMP 


•8..LtTEST 


tIF IN TEST 8 


2221 031562 


001405 








BEQ 


20f 


i THEN DO ALTERNATE PRINTOUT 


2222 031564 










ERROF 


l.E^'iGU.PRIPAO 


1 "PURGE/POLL TEST FAILED - 


031:^64 


104455 








TRAP 


CtWDF 




031566 


000001 








.WORD 






031570 


024503 








.UORD 


EHSG14 




031572 


027066 








.wop:; 


PRIPAO 




2223 031574 


000404 








BR 


25 1 


tCOmiON EXIT 


2224 
















2225 031576 








20): 


ERROF 


2.EMSG15.PRIVA0 


1 "EXTENDED ADDRESS TEST FAILED" 


031576 


104455 








TRAP 


CtEROF 




031600 


000002 








.WORD 


2 




031602 


024532 








.WORD 


EMSG15 




031604 


027114 








.WORD 


PRI\/AD 




2226 
















2227 031606 








25): 


OOOU 


LOGUNT 
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031606 013700 002332 WV LOGUNT.RO 

031612 104451 TRAP CtDODU 

2228 

22.?9 031614 000207 CKC(<EX: RTS PC 

2230 
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SEQ 66 



2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2240 

2249 

2250 

2251 

2252 

2253 

2257 

2258 031616 

2259 031616 

2260 031622 

2261 031626 
2262 

2263 031630 

2264 031632 

2265 031636 

2266 031642 

2267 031646 
2268 

2269 031650 

2270 031654 

2271 031662 

2272 031670 

2273 031672 

2274 031700 
2275 

2276 031706 

2277 031714 
2278 

2279 

2280 031716 

2281 031716 

2282 031722 

2283 031726 

2284 031732 

2285 031736 

2286 031744 

2287 031746 

2288 031750 

2289 031752 

2290 031756 

2291 03176C 

2292 031766 
031766 
031770 



012703 
012702 
005001 

010122 
012723 
062701 
022^01 
001370 

010137 
012737 
032737 
001406 
012737 
012737 

012737 
00020"^ 



010174 
012703 
012701 
005037 
012737 
005002 
005202 
001016 
005337 
001013 
017464 

104455 
000063 



172300 
172340 



077406 
000200 
002000 



172346 
007600 
000002 

177600 
000020 



llNTWU 

i 

I 

t 

> 

I 

I 



INTMnU:: 



THIS SUBROUTINE IS CALLED FROM TEST 8 TQ INITIALIZE 
MEMORY MANAGEMENT REGISTERS, ALL PAR'S EXCEPT ONE 
ARE SET UP TO MAP VIRTUAL ADDRESSES INTO THE LOUEST 
32K Of PHYSICAL MEMORY. KPAR7 IS SET UP TO MAP TO 
THE I/O PAGE. THE PAR REGISTER THAT CORRESPONDS TO 
THE VIRTUAL ADDRESS OF THE COMMUNICATION AREA IS SET 
UP TO POINT TO THE SECOND 32K Of PHYSICAL MEMORY. 
ALL PDR'S ARE INITIALIZED TO THE SAME VALUEt NAMELY, 
UPUARD EXPANDABLE. READ/MRITE ACCESS ENABLED. AND THE 
fULL 0KBYTE PAGE IS ACCESSIBLE. 



1$: 



172356 
002314 

172356 
172516 



000001 177572 2$: 



MOV 


•KP0R0.R3 


s START Of PDR ADDRESS RANGE 


MOV 


•KPAR0,R2 


: START Of PAR ADDRESS RANGE 


CLR 


Rl 


{STARTING RELOCATION VALUE 


MOV 


R1.(R2)* 


;LOAD RELOCATION VALUE 


MOV 


♦77406. (R3)» 


:LOAO PDR 


ADO 


•200. Rl 


t ADJUST RELOCATION VALUE 


CMP 


•2000. Rl 


sif NOT AT THE END 


BNE 


11 


t THEN DO ANOTHER ONE 


MOV 


R1.KPAR3 


i ELSE SET THIS REG TO NEXT 


MOV 


•7600.KPAR7 


;18 BIT I/O PAGE 


BIT 


•eiTl.KTFLAG 


{If 22 -BIT BUS NOT AVAILABLE 


BEQ 


21 


{ THEN GO TURN MMU ON 


MOV 


♦177600. KPAR7 


I E' SF 22 BIT I/O PAGE 


MOV 


•MM220N.MMUSR3 


• ENABLE 22 BIT MAPPING 


MOV 


•NMQN.MMUSRO 


{TURN ON THE WHOLE THING 


RTS 


PC 





000000 
032140 
004000 
002336 

000030 002736 



002736 

000002 000012 



PRTINT ! 



LOOP: 
XL OOP: 



32K 



MOV 


R1.8TU1P(R4) 


{INITIALIZE THE DRIVE 


MOV 


•INTTBL.R3 


{PUT THE TABLE ADDRESS INTO R3 


MOV 


♦Sl.Rl 


{SET UP TO BEGIN AT STEP 1 


CLR 


INISTP 


{CLEAR THE STEP TRACKER 


MOV 


•24..CNTHI 


J SET UP THE TIME OUT COUNTER 


CLR 


R2 


{CLEAR R2 


INC 


R2 


1 INCREMENT HI TIME OUT VALUE ? 


BNE 


21 


{If NOT. BRAr«:H 


DEC 


CNTHI 


{ELSE. DECREMENT LO TIMEOUT 


BNE 


21 


{BRANCH If NO TIME OUT 


MOV 


8TUSA(R4).TUSASV(R4) 


{SAVE THE SA fOR THE ERROR PRINTOUT 


ERRDf 


51.,URER1.URINT0 


{PRINT PORT INIT fAILURE 


TRAP 


C«ERDf 




.UORD 


51 





GLOBAL AREAS nACDO Y05.02 Thursday 25- Jul 85 16: 5S Pag* 55 1 
GLOBAL SUBROUTINES SECTION 



031772 


025250 








. WORD 


URERl 


031774 


027226 








.UORO 


URINTO 


2293 05* / It 










AAm 1 

OODU 


LOGUNT 


031776 


At T'YAA 

013700 








MOV 


LOGUNT, RO 


03200^ 


104451 








TRAP 


oooou 


2294 032004 


000454 








BR 


1001 


2295 032006 


/\T 1M A« 

03^401 


000002 




2% : 


BIT 


8TUSA(R4),R1 


032012 


AA t TCC 

OUl '55 










▼ 1 ABB 

ILOOP 


229/ 032014 


AT '^TTJ 

03t / /4 


4 AAAAA 
100000 


AAAAAO 

000002 




BT T 

BIT 


•ERR,0TUSA(R4) 


2290 032022 


AA « A 4 T 

001413 








Bf n 

BCu 


3$ 


2299 0^2024 


At "JMCA 

017464 


AAAA AO 
000002 


AAAA 4 O 
000012 




10 V 


bTUSAi R4 ; , TUSASV(R4) 


230U 032032 










CnnDr 


52 . , URER2 • URPRTE 


AT 5AT^ 

0320 32 


f f\MM CC 

104455 








TD AD 


^ A f B BP 

C»ERDr 


032034 


AAAA^^ 








UAOA 


52 


AT 9AT£ 

032036 


AO CT AO 

025302 








1 IAD A 


1 IBPB '> 


AT OA J A 

032040 


02725£ 








1 lADA 

.UORO 


MR PR It 


3TA1 AT3/VA9 

2301 032042 










AAAl 1 

oouu 


LUbUNT 


AT 

032042 


At T7AA 

013700 


AAOTTO 

002332 






MA If 


LOGUNT |R0 


AT 9AA£ 

032046 


t t\AA C t 

104451 








TQ AO 


ClOOOU 


9TA3 AT9ACA 

cSOr 032050 


AAA^TO 

000432 








OQ 
DK 


t AA* 

100 f 


cdU3 U32U3c 


00523 f 


AAOTT£ 

U02336 




TA . 

3> : 


INL 


INIsTr 


3TA^ AT OAC£ 

2304 03203C 


At OT7A 

0123 '4 


AAAAAO 
000002 






MAU 

nov 


roT ^ ATI IC DA \ 

(R3;*,0TUSA(R4/ 


2309 032062 


AA&TAt 

006301 








HsL 


Dt 

nl 


23UO Uc2v64 


t AATOA 








DOI 

DrL 


LOOP 


AT3A&^ 
23W f U320oe 


At 

012 f w2 


AA07 t 
002 ' ID 






MAU 

nov 


ABCSSUf* SO 


230o U32U'2 


At O^AT 

wl2>03 


AiN OC A£ 
UU2 j06 






MAU 

nov 


AOCOOIIC BT 


23U9 Uo2U '6 


At ATOO 
U1U322 






5» : 


MAU 

nuv 


OT rOO\. 

n3 , V Ii2 J * 


A AT91AA 


At OTOO 

012 f 22 


t AAA AA 






MAU 

nov 


AAUU rDO\. 

VOWN, I n2;* 


2311 U321U4 


U02'U3 


AAA1 nA 
UOV1U4 






AHA 


^OCOCTO OT 


231c U3211U 


022 ' U3 


AA07 t ti 
002 ' ID 






cnr 


AOCBPftin OT 


2313 U3211^ 


AA 1 T7A 
UU13 l\J 










5» 


3T1 A AT31 
C^l^ O0211O 


m 37T7 
U12 ' 3 > 


VOc ' lo 


A007CO 
Uc 2 ' 52 




Mnu 
nuv 


AOCDOfJf* DCOCAU 


DTI ^ AT01 OA 
231^ 032124 


A1 07T7 
012 ' 3 / 


Uv2 ' CO 


U22 ' 50 




HOV 


«CnDRNG.Cf10SAV 


OT1 a AT01 TO 
2310 U32132 


AA^AT7 
OU jU3 f 


AA07AA 
002 '44 






CLR 


CnOREF 


OT1 7 AT 31 T£ 
231 ' 0S213O 


AAAOA7 






1 AAt . 

100 > : 


RTS 


PC 


2310 














2319 








. TMTT 


DATA TABLE 


2320 032140 


104400 






INTTBL 




.UORO 104400 


2321 032142 


002716 










.UORO RSPRNG 


2322 032144 


000000 










.UORO 0 


2323 032146 


000001 










.UORO GO 



SEQ 67 



J DROP THE UNIT 



»EXIT ROUTINE 

J TEST FOR STEP BIT FROM DRIVE 

;LOOP UNTIL SO^tETHING SETS 

i CHECK FOR ERROR 

(NO ERROR, KEEP GOING 

iSAVE THE SA CONTENTS 

: PRINT ERROR 



;OROP THE UNIT 



iEXIT ROUTINE 

: INCREMENT THE STEP TRACKER 

jURITE UORO FROM TABLE TO CONTROLLER 

s SHIFT TO NEXT STEP 

;IF NOT AT LAST STEP LOOP 

sPUT THE RESPONSE DESCRIPTOR ADD IN R2 

,PUT THE RESPONSE BUFFER ADDRESS IN R3 

;PUT THE BUFF ADO IN THE DESCRIPTOR 

5 SET THE DESCRIPTOR TO THE CONTROLLER 

sSTEP TO T>€ NEXT BUFFER SLOT 

J ARE UE AT THE END OF THE BUFFER ? 

:N0. KEEP GOING 

jSET UP TO USE FIRST RESPONSE BUFFER 
:SET UP TO USE FIRST COMMAND BUFFER 
:SET THE COMMAND REFERENCE * TO 0 
;RETURN 
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2S25 032150 


005064 


000014 




ORVTST : 


CLR 


2326 032154 


005037 


002356 






CLR 


2327 032160 


005037 


002360 






CLR 


2328 032164 


012737 


025647 


002330 




MOV 


2329 032172 


004737 


031716 






JSR 


2330 032176 


032764 


000001 


000014 




BIT 


2331 032204 


001060 








BNE 


2332 032206 


012705 


002410 






MOV 


2333 032212 


004737 


032350 






JSR 


2334 032216 


032764 


000001 


000014 




BIT 


2335 032224 


001050 








BNE 


2336 032226 


012705 


002436 






MOV 


2337 032232 


004737 


032350 






JSR 


2338 032236 


005001 






101: 


CLR 


2339 032240 


012702 


000024 






MOV 


2340 032244 


032737 


000200 


177560 


30$: 


BIT 


2341 032252 


001021 








BNE 


2342 032254 


005201 








INC 


2343 032256 


001372 








BNE 


2344 032260 


005302 








DEC 


2345 032262 


001370 








BNE 


2346 032264 


012705 


002370 






MOV 


2347 032270 


004737 


032350 






JSR 


2348 032274 


032764 


000001 


000014 




BIT 


2349 032302 


001021 








BNE 


2350 032304 


032764 


000020 


AA AA a M 

000014 




BIT 


2351 032312 


001015 








BNE 


2352 032314 


000750 








BR 


2353 032316 


013705 


177562 




50*: 


MOV 


2354 032322 


042705 


000200 






BIC 


2355 032326 


022705 


M A A A A V 

000003 






CMP 


2356 032332 


001344 








BNE 


2357 032334 


012705 


002466 




40»: 


MOV 


2358 032340 


004737 


032350 






JSR 


2359 032344 










BREAK 


032344 


104422 








TRAP 


2360 032346 


AM 

000207 






100) : 


RTS 


2361 












2362 












2363 












2364 












2365 032350 








A I ^ A A ft t 

CLSORV: 




2366 032350 


004737 


032456 




1): 


JSR 


2367 032354 


032764 


000001 


000014 




BIT 


2368 032362 


001034 








BNE 


2369 032364 


020527 


002436 






CMP 


2370 032370 


001431 








BEQ 


2371 032372 


004737 


032556 






JSR 


2372 032376 


032764 


000001 


000014 




BIT 


2373 032404 


001023 








BNE 


2374 032406 


004737 


033042 






JSR 


2375 032412 


032764 


A A AAA* 

000001 


A A AA « A 

000014 




BIT 


2376 032420 


001015 








BNE 


2377 032422 


022705 


002436 






CMP 


2378 032426 


001012 








BNE 


2379 032430 


004737 


03'd326 






JSR 


2380 032434 


032764 


000001 


000014 




BIT 
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SEQ 68 



LUNFLG(R4) 

PROGRL 

PROGRH 

•CTRL.FRUIS 

PC.PRTINT 

♦0RPrLG.LUNFLG(R4) 

loot 

•EXEL0C.R5 

PC.CLSDRV 

«0RPFLG.LUNFLG(R4) 

loot 

0RCV0AT,R5 

PC.CLSDRV 

Rl 

«20. .R2 

46IT7.RCSR 

50$ 

Rl 

30$ 

R2 

30$ 

♦G0UST.R5 
PC.CLSDRV 
♦0RPFLC.LUNFLG(R4) 
100$ 

«00NEFL.LUNFLG(R4) 

100$ 

10$ 

R6LF.R5 
#BIT7.R5 
♦CNTRLC.R5 
30$ 

«AB0RT.R5 
PC.CLSDRV 



{CLEAR ALL FLAGS 

I CLEAR LOU WORD OF PROGRESS INDICATOR 
CLEAR HIGH UORD OF PROGRESS INDICATOR 
DEFAULT FRU IS CONTROLLER 
GO DO A PORT INIT 

lis THE DRIVE AVAILABLE 

;N0, BRANCH TO EXIT 

.-SET UP FOR "EXECUTE LOCAL PROGRAM- 

sGO ISSUE THE COMMAND 

:IS THE DRIVE AVAILABLE 

iNO. BRANCH TO EXIT 

{SET UP FOR "RECEIVE DATA" 

iGO ISSUE THE COMMAND 

; CLEAR LOW DELAY COUNTER 

iSET UP HIGH DELAY COUNTER 

{"CONTROL C" INPUT ? 

:YES. BRANCH 

{DELAY BETWEEN "GET DUST STATUS" COMMANDS 



SET UP FOR "GET DUST STATUS" 

GO ISSUE THE COMMAND 

IS THE DRIVE AVAILABLE 

NO. BRANCH TO EXIT 

INTERNAL TEST DONE ? 

YES, BRANCH TO EXIT 

LOOP 

GET DATA INPUT FROM KEYBOARD 

STRIP PARITY 

"CONTROL C" INPUT ? 

NO, BRANCH 

SET UP FOR "ABORT" 

GO ISSUE THE COMMAND 



C$BRK 
PC 



{RETURN 



PC.PRTDRV 

«0RPFLG,LUNFLG(R4) 

100$ 

R5.#RCVDAT 
100$ 

PC.CDRECV 

«DRPFLG.LUNFLG(R4) 

1001 

PC.CHKRSP 

«RPFL6.LUNFLG(R4) 
100$ 

«RCVDAT,R5 
100$ 

PC.CHKMSG 
♦DRPFLG.LUNFLG(R4) 



GO SEND THE COMMAND 

IS THE DRIVE AVAILABLE 

GET OUT IF NOT AVAILABLE 

"RECEIVE DATA" COMMAND JUST ISSUED 1 

YES. BRANCH TO EXIT 

GO CHECK FOR ANY NEU RESPONSES 

IS THE DRIVE AVAILABLE 

GET OUT IF NOT AVAILABLE 

GO CHECK CONTENTS OF RESPONSE 

IS THE DRIVE AVAILABLE 

GET OUT IF NOT AVAILABLE 

WAS IT A "RECEIVE DATA" COMMAND ? 

NO. BRANCH TO EXIT 

GO CHECK MESSAGE FROM INTERNAL TEST 

IS THE DRIVE AVAILABLE 



GLOBAL AREAS MACRO Y0S.02 Thursday 2S-Jul-8S 16:53 
GLOBAL SUBROUTINES SECTION 



2391 032442 

2382 032444 

2383 032450 

2384 032454 
2385 

2386 
2387 
2388 

2389 032456 

2390 032456 

2391 032462 

2392 032464 
23<»3 032472 

2394 032476 

2395 032502 

2396 032504 

2397 032512 
032512 
032514 
032516 
032520 

2398 032522 
032522 
022526 

2399 032530 

2400 032532 

2401 032536 

2402 032542 

2403 032544 

2404 032550 

2405 032554 
2406 

2407 
2408 
2409 

2410 032556 

2411 032556 

2412 032562 
24 J 3 032570 

2414 032572 

2415 032600 

2416 032602 

2417 032604 

2418 032612 

2419 032614 

2420 032620 

2421 032622 

2422 032626 

2423 032634 

2424 032636 

2425 032644 

2426 032650 

2427 032654 

2428 032656 

2429 032662 

2430 032666 
2431 



001004 BNE 

012705 002370 MOV 

004737 032556 JSR 

000207 loot : RTS 



PRTDRV : : 



013701 


022750 






MOV 


010511 








MOV 


012761 


100000 


000002 




MOV 


005774 


000000 






TST 


005774 


000002 






TST 


001413 








BEQ 


017464 


000002 


000012 




MOV 
ERROF 


104455 








TRAP 


000065 








.UORD 


025351 








.WORD 


027252 








.WORD 
DOOU 


013700 


002332 






MOV 


104451 








TRAP 


000411 








BR 


062701 


000004 




10$: 


ADD 


022701 


002736 






CMP 


001002 








BNE 


012701 


002726 






MOV 


010137 


022750 




151: 


MOV 


000207 






100$: 


RTS 



CORECV : : 



004737 


032670 




1$: 


JSR 


032764 


000001 


000014 




BIT 


001036 








BNE 


032764 


000020 


000014 




BIT 


001016 








BNE 


011103 








MOV 


026365 


000000 


000000 




CMP 


001411 








BEQ 


022705 


002370 






CMP 


001022 








BNE 


012705 


002436 






MOV 


026365 


000000 


000000 




CMP 


001014 








BNE 


012761 


100000 


000002 


10»: 


MOV 


062701 


000004 






ADO 


022701 


002726 






CMP 


001002 








BNE 


012701 


002716 






MOV 


010137 


022752 




15»: 


MOV 


000207 






100$: 


RTS 
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SEQ 69 



1001 ,GET OUT IF NOT AVAILABLE 

0GDUST.R5 ,"GET DUST STAUS" PACKET ADDRESS 

PC.CDRECV iGO RET LAST RESPONSE 

PC {RETURN 



CMOSAV.Rl 
R5.(R1) 

«0UN,HIADDR(R1} 
8TUIP(R4) 
8TUSA(R4) 
10* 

8TUSACR4).TUSASVCR4) 

53..URER4,URPRTE 

CIEROF 

53 

URER4 

URPRTE 

LOGUNT 

LOGUNT.RO 

CtOOOU 

100$ 

♦RNGSTP.Rl 
«0SCEND.R1 
15$ 

«CMDRNG,R1 

Rl.CHOSAV 

PC 



;SET UP COMMAND RING POINTER 

iPUT THE PACKET ADDRESS INTO THE DESCRIPTOR 

I SET THE OUNERSHIP BIT OF THE DESCRIPTOR 

jREAD THE IP REGISTER 

jREAO THE SA REGISTER 

{BRANCH IF NO ERRORS 

iSAVE THE SA FOR THE ERROR PRINTOUT 

{PRINT PORT DETECTED ERROR 



{DROP THE UNIT 



{GET OUT 

{ADJUST RESPONCE POINTER FOR NEXT TIME 

{ARE WE AT THE END ? 

{NO. GET OUT 

{SET Rl TO TOP BUFFER 

{SAVE THE COMMAND RING LOCATION 

{RETURN 



PC.PDRECV 
«0RPFLG.LUNFL6(R4} 

loot 

«00NEFL.LUNFLG(R4) 
10$ 

(R1).R3 

P.CRF(R3).P.CRF{R5) 

lot 

«GOUST,RS 

loot 

MCVOAT.RS 
P.CRF(R3),P.CRF(R5) 

loot 

MUN.HIAOORCRl) 
4RNGSTP.R1 
«CMDRNG.R1 
15 1 

MSPRNG.Rl 
Rl.RSPSAV 

PC 



CALL PORT DRIVER RECEIVE 
IS THE DRIVE AVAILABLE 
GET OUT IF NOT AVAILABLE 
INTERNAL TEST DONE ? 
YFS BRANCH 

SE't' UP RESPONCE BUFFER POINTER 

IS THIS THE RESPONSE THAT IS EXPECTED ? 

^ES BRANCH 

HAS'lT A -GET OUST STATUS" COMMAND ? 

NO. BRANCH TO EXIT 

GET START OF "RECEIVE DATA" PACKET 
ilS IT A "RECEIVE DATA" RESPONSE ? 
iNO, BRANCH TO EXIT 
iGIVE THE CONTROLLER THE RING BACK 
{ADJUST RESPONCE POINTER FOR NEXT TIME 
{ARE UE AT TK€ END ? 
{NO. GET OUT 
{SET Rl TO TOP BUFFER 
{SAVE THE POINTER FOR NEXT TIME 
{RETURN 
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2432 
















2433 
















2434 032670 








M A A^ J%i ( 

PDRECV : 


'• 






2435 032670 


013701 


022752 






NOV 


HSrSAV •Rl 


;PUT THE RESPONSE RING SAVE IN Rl 


2436 032674 


012737 


000005 


002736 


1) : 


MOV 


ikC AUTUT 

n •CNTHI 


J SET UP THE TIME OUT COUNTER 


2437 032702 


005002 








CLR 


He 


A 1 c ikn n A 

iCLEAP R2 


2438 032704 


005202 






5) : 


INC 


K2 


{INCREMENT HI TIME OUT VALUE ? 


2439 032706 


001026 








BNE 


101 


U A Allf BPl Al 1 AA Aki Al I 

|N0 OVERFLOU YET, BRANCH 


2440 032710 


005337 


002736 






AP A 

DEC 


tNTnX 


tELSE. INCREMENT HI TIMEOUT 


2441 032714 


001023 








BNE 


4 A * 

109 


>KEEP GOING .NO TIME OUT YET 


2442 032716 


022705 


002370 






CMP 


APnilCT DC 


lUAS IT A "GET DUST STATUS' COMMAND ? 


2443 032722 


001410 








BEQ 


Of 


iYES. PRINT ERROR 


2444 032724 










ERROF 


54 . , tMSG16 .FRUERR 


("EXECUTE LOCAL PROGRAM" COMMAND TIMEOUT 


032724 


104455 








TRAP 


A f BAP 

C$ERDF 


032726 


000066 








.UORO 


CA 

54 




032730 


024567 








t I AAA 

.UORO 






032732 


030624 








.UORO 


cot 1COO 




2445 032734 










OGOU 


■ A^l lUT 

LOGUNT 


A A tfUftAB ^ A A^ A w 

|60 DROP THE UNIT 


032734 


013700 


002332 






MOV 


LOGUNT .RO 


032740 


104451 








TRAP 


(.youDU 




2446 032742 


000436 








BR 


1 AAA 


iGET OUT ON ERROR 


2447 032744 








6) : 


ERROF 


55 . t EMSG17 , FRUERR 


j'GET OUST STATUS" COMMAND TIMEOUT 


032744 


104455 








TRAP 


CI ERDr 


032746 


000067 








.UORO 


55 




032750 


024637 








■ lAn A 

.UORO 


cnS617 




032752 


030624 








.UORO 


CDI MTOD 

rKUERR 




2448 032754 










OOOU 


LOGUNT 


AA AAMM V * aaaaVV 

iGO DROP THE UNIT 


032754 


013700 


002332 






MOV 


LOGUNT .nO 




032760 


104451 








TRAP 


(.$DOUU 




2449 032762 


000426 








BR 


1001 


APT Al !▼ Akl AA^IAA 

iGET OUT ON ERROR 


2450 032764 


017464 


000002 


000012 


10$ : 


MOV 


9IUaH(R4 J, TU9A9V(K4/ 


jGET SA CONTENTS 


2451 032772 


032764 


100000 


AA/\/\4 O 

000012 




BIT 


fftil 1 13 1 TUSASVl n4 / 


jCHECi^ FOR SA ERROR 


2452 033000 


001413 








BEQ 


20 » 


UA PBBAA BAA ftiALJ 

;N0 ERROR, BRAf4CH 


2453 033002 


012737 


025670 


002330 




MOV 


Al CCT COIITC 

vLoL I , rKUls 


jLOAO FAILING FRU 


2454 033010 










ERROF 


56. ,EMSG9, HKrRTE 


5PRINT "SA CONTENTS IN ERROR* MESSAGE 


033010 


104455 








TRAP 


C$tROF 


033012 


000070 








.UORO 


5o 




033014 


024271 








• JAB A 

.UORO 


CM CP a 




033016 


027252 








.UORO 


liKrK It 




2455 033020 










OOOU 


1 API I4IT 

LOGUNT 


ABAB Tup ■ i&iTT 

tOROP THE UNIT 


033020 


013700 


002332 






MOV 


1 API lUT DA 

LUuUnT ,K0 




033024 


104451 








TRAP 


P A AAA< 1 




2456 033026 


000404 








BR 


4 AAA 

loot 


r*PT Al IT AM PBBAB 

;btT OUT UN ERROR 


2457 033030 


032761 


100000 


AAA A At 

000002 


AA * 

20* : 


BT T 

BIT 


90 UN , nIAOQR( Rl ; 


TP TLiP CI AT CPT TA t tt^ t 

;IS THE SLOT SET TO US ? 


2458 033036 


001322 








BNE 


e A 


I/PPB ^ATMf^ TTl 1 TTMPAilT AA f^liAAPAO 

{KEEP GOING TILL TIMEOUT OR SUCCESS 


2459 033040 


000207 






100$ : 


RTS 


DP 
PC 


BPTi lA&t 

i RETURN 


2460 
















2461 
















2462 
















2463 
















2464 033042 


026565 


000000 


A A A A A A 

000000 


CHKRSr ; 


CMP 


D PDC/DT^ D PDC/DC\ 


ATA AAMMAklA nPPPOPUAP Ul IMBPAP u A T Alj 1 

2 DID COnnAND RErEHcNCE NUnBERS nATCH ? 


2465 033050 


001003 








BNE 


C A 

3» 


UA BBAUALJ 

I NO* BRANCH 


2466 033052 


005763 


000012 






TST 


D CTCf DT ^ 


IJAC PTATIIP MfclABMAl uO 

|UA5 STATUS NORHAL ? 


2467 033056 


001451 








BEQ 


4 C A 

151 


WPP DBA^IALJ 

;YES, BRANCH 


2468 033060 


022705 


002410 






Lnr 


JfeCVCi AP DC 


IJAC TT AAI MPWfp 1 AP DBAP fl 1^ nilfciil tin 1 

lUAS IT AN "EXEC LOC PROG COMMAND ? 


2469 033064 


001416 








BEQ 




t YES 1 BRANCH 


2470 033066 


022705 


002436 






CMP 


MCVOAT.RS 


;UAs'lT A "RECEIVE DATA" COMMAND ? 
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AA 1 AOX 












AP37A^ 








TMD 

(•nr 




AA1 ATA 


















At - 


tnnUr 




1 AAA*^^ 








TRAD 


ATVi r\A. 


AAAA71 












AOA7A1 
Uc^ f UX 








unon 


AYXI 1 O 










unRn 

• MUnU 












nnni i 
uuuu 




A1 T7nA 








nuv 


Avvi ii; 
VOOA AD 


XU^^ jX 








TRAP 




AAAC A4 
\J\j\Jj\JX 








RR 










7< • 
f • S 




O'^^l 00 










TRAP 












• MUnU 


nxxi of% 


APA7AT 








• MUnU 


ATT« XA 


AP7TAA 








• MUnU 


OA7tk c^xx^ xo 










uuuu 




Al T7AA 








nuv 


ATTI ^ 


1 AAAS1 








TRAP 

1 nnr 




AAOA71 








RR 










Ml • 






1 AAA^^ 

xv^^^^ 








TRAP 




A0007T 








UARA 




AP^AIT 








uAPn 

• Munu 


V JOX3V 


AP77PA 








UARA 


ATT 1*^9 












V^^X 


01 T7A0 

VXO f w 








MAU 


ATTICA 










TRAP 


C^OC Vd^XwV 


VW*VwX 








fiR 


9AAT 








9$ . 


ERROF 




1 AAASS 








TRAP 

1 nor 


ATT1 


AAAA7A 








• nun u 


VwOX vw 


AP^A'\P 








unpn 


7A 


ATAAPA 










ATT1 70 














Al T7AA 
VX ^ 1 w 


00373P 






MOV 
nu » 


OTT1 7A 


1 AAA'\1 

XV"»H jX 








TRAP 

1 n nr 




AAAAS1 








BR 




APP7AS 






1^1 • 






AA1 AAA 








one 




ATP7AA 


000010 

WW 






BTT 

□ X 1 


PAAQ AT TP 1 A 


AA1A1 1 

\A/X^XX 










PAQA ATTPPA 


1PATP7 


000010 

WW XV 


000901 
wvcvx 




TMPR 


PAQ1 ATTPPA 


AAt TPS 

WX J 








RNF 


PAOP ATTPTA 


1PATP7 


WW X f 


000007 

W WV f 




TMPR 


PAQT ATTPTA 


AA1 TP1 

WX <JC X 








RNF 


PAQA ATTPAA 


AAAAT1 

W\^* iJX 








RR 

on 


PAO<; ATTPAP 


APATT7 


000A?0 
wwcv 


WC^ 


901 • 


PMP 


PAQA ATTPSA 


AATA1 7 










PAQ7 ATTP^P 


APATT7 


nooo99 






PMP 


PAQA ATTPAA 


AATA1 T 








RGT 


2499 033262 


012737 


025716 


002330 


30$: 


MOV 


2500 033270 










ERROF 


033270 


104455 








TRAP 


033272 


000075 








.WORD 


033274 


025104 








.WORD 
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SEQ 71 



9« 

«AB0RT.R5 
9f 

57..EMSG18,GDSE1R 

CtERDF 

57 

EMSGIS 

GDSERR 

LOGUNT 

LOGUNT.RO 

CIDODU 

100* 

58. .EnSG19.ELPERR 

C»£ROF 

58 

EMSG19 

ELPERR 

LOGUNT 

LOGUNT.RO 

C»OOOU 

1001 

S9.,EMS620,RCVERR 

C»ERDF 

59 

EnSG20 

RCVERR 

LOGUNT 

LOGUNT.RO 

C»OOOU 

100« 

60..EnSG21.FRUERR 

CtEROF 

60 

EMSG21 

FRUERR 

LOGUNT 

LOGUNT.RO 

CtOOOU 

loot 

«G0UST,R5 

loot 

•TEST.9,LUNFLG(R4) 
20t 

P.EN0C(R3).*201 
6t 

P.FLGSCR3).#7 
6t 

loot 

P.IND1(R3).PR0GRL 
50 1 

P.IND2(R3).PR0GRH 
50t 

♦ORVE.FRUIS 

61.. EHSG22, FRUERR 

CtEROF 

61 

EnSG22 



I YES, BRANCH 

tUAS IT AN "ABORT" COMMAND 7 
tYES, BRANCH 

{PRINT "GET DUST STATUS" COMMAND FAILURE 



;OROP THE UNIT 



{GET OUT ON ERROR 

iPRINT 'EXECUTE LOCAL PROGRAM" COMMAND FAILURE 



J DROP THE UNIT 



(GET OUT ON ERROR 

jPRINT "RECEIVE DATA" COMMAND FAILURE 



J DROP THE UNIT 



:GET OUT ON ERROR 

sPRINT "ABORT • COMMAND FAILURE 



sDROP THE UNIT 



:GET OUT ON ERROR 

J WAS IT A GET DUST STATUS COMMAND ? 

tNO. BRANCH TO EXIT 

J ARE UE IN TEST 9 ? 

:N0, GO CHECK PROGRESS INDICATOR 

{CORRECT ENOCODE ? 

I NO. ERROR 

{CORRECT FLAGS ? 

{NO. ERROR 

{SUCCESS. RETURN 

(CHECK LOU WORD OF PROGRESS INDICATOR 

{PROGRESS BEING MADE. BRANCH 

{CHECK HIGH WORD OF PROGRESS INDICATOR 

{PROGRESS BEING MADE. BRANCH 

{LOAD FAILING FRU 

{PRINT "INTERNAL TEST HUNG" ERROR 
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2501 



2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 



251 8 



2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 



2527 



2528 
2529 
2530 
2531 
2532 
2543 
2544 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 



033276 
033300 
033300 
033304 
033306 
033310 
033316 
033324 



033326 
033332 
033336 
033340 
033344 
033346 
033352 
033354 
033354 
033356 
033360 
033362 
033364 
033364 
033370 
033372 
033374 
033402 
033406 
033414 
033422 
033430 
033436 
033436 
033440 
033442 
033444 
033446 
033446 
033452 
033454 
033462 

033464 



033464 



030624 

013700 
104451 
000406 
016337 
016337 
000207 



012701 
121127 
001446 
121127 
001413 
121127 
001440 

104455 
000076 
025135 
030604 

013700 
104451 
000430 
012737 
012702 
116162 
116162 
116162 
116162 

104455 

000077 
025215 
030540 

013700 
104451 
052764 
000207 



CC2332 



000020 
000022 



060000 
000001 

000002 

000003 



002356 
002360 



50): 
100«: 



.WORD FRUERR 

DODU LOGUNT 

MOV LOGUNT, RO 

TRAP ODODU 

BR 100) 

MOV P.IN01(R3).PR0GRL 

MOV P.IND2(R3).PR0GRH 

RTS PC 



002332 



025716 
024066 
000002 
000003 
000004 
000005 



002330 

000020 
000021 
000046 
000047 



002332 
000020 



000014 



CHKMSG: MOV 


MD6UF.R1 


CMPB 


(Rl).#l 


BEQ 


100) 


CMPB 


(Rl).«2 


BEQ 


1$ 


CMPB 


(Rl).«3 


BEQ 


100) 


ERROF 


62. ,EMSG23,INVMSG 


TRAP 


OEROF 


.WORD 


62 


.WORD 


EMSG23 


.WORD 


INVMSG 


DODU 


LOGUNT 


MOV 


LOGUNT. RO 


TRAP 


CIDODU 


BR 


1001 


1) : MOV 


tfORVE.FRUZS 


MOV 


«FAULTC.R2 


MOVB 


2(R1}.20(R2) 


MOVB 


3CR1).21(R2} 


MOVB 


4(R1).46(R2) 


MOVB 


5(Rl).47(R2) 


ERROF 


63..EHSG24,INTMSG 


TRAP 


OEROF 


.WORD 


63 


.UORD 


EMSG24 


.WORD 


INTMSG 


DODU 


LOGUNT 


MOV 


L06UNT.ro 


TRAP 


ODOOU 


100): BIS 


«00NEFL,LUNFLG(R4) 


RTS 


PC 


ENOnOO 





.TITLE MISCELLANEOUS SECTIONS 
•SBTTL REPORT COOING SECTION 



•SBTTL 



BGNMOO 

INITIALIZE SECTION 



THE INITIALIZE SECTION CONTAINS THE 
AT THE BEGINNING OF EACH PASS. 



SEQ 72 



jDROP THE UNIT 



iGET OUT ON ERROR 

sUPOATE LOU WORD OF PROGRESS INDICATOR 
; UPDATE HIGH WORD OF PROGRESS INDICATOR 



jGET START ADDRESS OF MESSAGE BUFFER 
;NORMAL COMPLETION MESSAGE ? 
J YES. BRANCH TO EXIT 
jERROR COMPLETION MESSAGE ? 
>YES. BRANCH 

jNORMAL COMPLETION WITH INFO. MESSAGE ? 

5 YES. BRANCH TO EXIT 

; INVALID MESSAGE FROM INTERNAL TEST 



;DROP THE UNJT 



(GET OUT ON ERROR 

(GET FAILING FRU 

sGET ADDRESS QF ERROR MESSAGE 

{1ST ASCII BYTE OF FAULT CODE INTO MESSAGE 

;2N0 ASCII BYTE OF FAULT CODE TNTO MESSAGE 

J 1ST ASCII BYTE OF SUB-FAULT CODE INTO MESSAGE 

t2N0 ASCII BYTE OF SUB-FAULT CODE INTO MESSAGE 

iPRINT ERROR MESSAGE 



sDROP THE UNIT 



sSET DONE FLAG 
: RETURN 



COOING THAT IS PERFORMED 
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2500 

2501 033464 
033464 

2502 
2503 

2504 033464 
033464 
033470 

2505 033472 
033472 

2506 

2507 033474 
033474 
033500 

2580 033502 
033502 

2589 

2590 033504 
033504 
033510 

2591 033512 
033512 

2592 

2593 033514 
033514 
033520 

2594 033522 
033522 

2595 

2596 033524 
033524 
033530 

2597 033532 
033532 

2598 

2599 033534 
2600 

2601 033536 

2602 033536 

2603 033544 

2604 033550 

2605 033554 

2606 033562 

2607 033564 
2608 

2609 033570 
033570 

2610 033572 

2611 033576 
2612 

2613 033604 

2614 033610 

2615 033616 
2616 

2617 033620 
033620 
033624 



DINIT:; 



BGNINIT 



012700 
104447 

103421 



012700 
104447 

103415 



012700 
104447 

103411 



012700 
104447 

103422 



012700 
104447 

103465 

000423 



012737 
005037 
012704 
022737 
103002 
004737 



104433 

00521.7 
012737 

005237 
023737 
001433 



013700 
104442 



000040 



000037 



000034 



000035 



000036 



READEF OEF. START 
MOV OEF.START.RO 
TRAP C$REFG 
BCOMPLETE START 
BCS START 

READEF OEF, REST ART 
MOV OEF, RESTART.ro 
TRAP OREFG 
BCOMPLETE START 
BCS START 

READEF «£F.PUR 
MOV «£F.PUR.R0 
TRAP CIREFG 
BCOMPLETE START 
BCS START 

READEF «EF.NEU 
MOV «£F.NEU.RO 
TRAP OREFG 
BCOMPLETE NUPASS 
BCS NUPASS 

READEF tfEF. CONTINUE 
MOV «£F. CONTINUE, RO 
TRAP OREFG 
BCOMPLETE END 
BCS 

BR 



END 
NEXT 



000000 002312 

002314 

002234 

001400 002120 
030776 



002312 

177777 C02332 
002332 

002332 002012 



START: 

MOV 

CLR 

MOV 

CMP 

BHIS 

JSR 

NUPASS: SRESET 
TRAP 
INC 
MOV 



NEXT: 



002332 



INC 
CMP 
BEQ 

GPHARD 

MOV 

TRAP 



«0,PASCNT 

KTFLAG 

«LUNBLK.R4 

«1400.L>HinE 

NUPASS 

PC.KTTEST 



CIRESET 

PASCNT 

#-l.LOGUNT 

LOGUNT 

LOGUNT,L<UNIT 
END 

LOGUNT. RO 
LOGUNT. RO 
C$GPHRO 



SEQ 73 



ilF THIS IS A FRESH START 

i THEN GO TO START 

:IF THIS IS A RESTART 

( THEN GO TO START 

J IF POWER-FAIL OCCURRED 

; THEN START FROM THE BEGINNING 

)IF THIS IS A NEW PASS 

; THEN SKIP START UP CODE 

sIF THIS IS A CONTINUE 

; THEN SKIP ALL INIT CODE 

sJUST HERE FOR NEXT UUT 



{INITIALIZE PASS COUNT 

ilN CASE WE'RE STARTED > THAN ONCE 

sR4 WILL ALWAYS POINT TO LUNBLK 

ilF <- 28KW0RDS OF MEMORY PRESENT 

J THEN SKIP NEXT 

i ELSE SEE IF MMU IS PRESENT 

i CLEAR THE WORLD 

{UPDATE THE PASS COUNT 
{INITIALIZE LOGICAL UNIT COUNT 

{POINT TO NEXT UUT 

{IF UE'VE PASSED MAXIMUM UUT'S 

{ THEN LEAVE INIT 

{GET P-TABLE FOR THIS UNIT 
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2618 033626 
033626 

2619 

2620 033630 

2621 033634 

2622 033640 

2623 033646 

2624 033652 

2625 033656 

2626 033662 
033662 
033666 
033672 
033676 
033700 
033702 

2627 

2620 033706 
2629 033706 
033706 
033710 

2630 

2642 033712 

2643 

2644 

2645 033742 
033742 
033742 



103366 

011064 
012064 
062764 
012064 
011064 
004737 

013746 
012746 
012746 
010600 
104417 
062706 



104432 
000032 

045 



104411 



BNCOMPLETE 
BCC NEXT 



NEXT 



000000 
000002 
000002 
000004 
000006 
031162 

002332 
033712 
000002 



000006 



116 



000002 



END: 



045 IMSG: 



L10007: 



MOV (R0).TUIP(R4) 

MOV (R0)«,TUSA(R4) 

ADD «2,TUSA(R4) 

MOV (R0)*.TUVEC(R4) 

MOV (R0),MSCPUN(R4) 

JSR PC.RSTVEC 
PRINTF MMSCLOGUNT 

MOV LOGUNT.-(SP) 

MOV MMSG, -(SP) 

MOV ♦2.-(SP) 

MOV SP.RO 

TRAP CIPNTF 

ADD «6.SP 



EXIT INIT 
TRAP CIEXIT 
.WORD L10007-. 



.ASCIZ 
.EVEN 

ENDINIT 

TRAP 



?«N«ATESTING UNIT 



C«NIT 



SEQ 74 



;TRY AGAIN 



;PUT IP REG ADDRESS IN LUNBLK 

s AND ANOTHER COPY IN LUNBLK 

(MAKE IT THE SA REG ADDRESS 

I GET THE VECTOR INTO THE LUNBLK 

I PUT THE T/MSCP UNIT ♦ IN LUNBLK 

J SET UUT VECTOR FOR ILLEGAL INTRPTS. 

("TESTING UNIT N" 



MISCELLANEOUS SECTIONS 
CLEANUP COOING SECTION 

2647 
2648 
2649 

2650 
2651 
2652 
2653 

2654 033744 
033744 

2655 

2662 033744 032764 

2663 033752 001400 
2664 

2665 
2666 
2667 

2668 033754 
2669 
2670 
2671 

2672 033760 
033760 
033764 

2673 

2674 033766 

033766 

033770 
2675 
2687 
2688 
2689 

2690 033" 72 
033772 

033772 104412 
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.SBTTL CLEANUP CODING SECTION 



t ♦ ♦ 



SEQ 75 



OOOOOOG 002234 



005064 000014 



016400 
104436 



104432 
000002 



000004 



THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 



i - ■ 



LICLEAN: 



BGNCLN 



BIT 
BEQ 



«T9FLAG,LUNBLK(R4) 
ENDCLE 



J IF NOT HERE FROM TEST 9 
: THEN SKIP THE RCST 



:EVENTUALLY MORE CODE MILL BE PLACED HERE TO GUARANTEE THAT AN ABORT 
; COMMAND IS ISSUED TO THE UUT TO STOP EXECUTION OF THE LOCAL PROGRAM. 



ENDCLE: CLR 



LUNFLGCR4) 



J CLEAR OUT THE LUN FLAGS 



;NOTE: THIS LINE OF CODE MAY HAVE TO BE REMOVED TO HANDLE tC FOLLOWED 
:BY A PROCEED COMMAND CORRECTLY. 

CLRVEC TUVEC(R4) ,PUT "TRAP CATCHER" INTO VECTOR 

MOV TUVECCR4).R0 

TRAP OCVEC 



LlOOlO: 



EXIT 
TRAP 
.WORD 



.EVEN 

ENDCLN 

TRAP 



CLN 

C»EXIT 
L10010-. 



C* CLEAN 
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SEQ 76 



2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 

2700 
2706 
2707 
2708 
2709 



033774 
033774 



2710 
2722 
2723 
2724 
2725 



033774 012764 000001 000014 
034002 

034002 000167 

034004 000000 



034006 
034006 

034006 104453 



.SBTTL OrjP UNIT SECTION 



: THE DROP-UNIT SECTION CONTAINS THE COOING THAT CAUSES A DEVICE 
i TO NO LONGER BE TESTED. 



LIDU: 



LlOOll: 



BGNOU 



MOV 

EXIT 

.WORD 

.WORD 



.EVEN 
ENODU 
TRAP 



♦0RPFLG.LUNFLG(R4) 
DU 

J»JMP 
LlOOll -2-. 



:LETS PROGRAM KNOW IT'S DEAD 



CtOU 
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SEQ 77 



2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 

2735 034010 
034010 

2736 
2M2 

2743 034010 
034010 
034012 

2744 
2756 
2757 
2758 

2759 034014 
034014 
034014 

2760 

2761 034016 

2762 

2764 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2778 

2779 

2792 

2794 

2795 

2796 

2797 

2798 

2799 

2800 

2801 

2802 

2803 

2804 

2805 

2806 

2807 

2811 034016 
034016 

2812 034016 

2813 034020 

2814 034026 

2815 034032 

2816 034034 



.S8TTL AOO UNIT SECTION 



THE ADO-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
TO BE EXECUTED IN CONJUNCTION UITH THE ADDING OF A UNIT BACK 
TO THE TEST CYCLE. 



LtAU:: 



000167 
000000 



104452 



000000 



L10012: 



BGNAU 



EXIT AU 
.UORD JtJMP 
.UORO L10012-2-. 



.EVEN 
ENOAU 

TRAP C»AU 
ENDMOD 



.TITLE HARDWARE TEST 

HELP-0 I CONTROL LISTING OF HELP INFOfiNATION 



:ONEFILE> 



HELP"0 
HELP-1 



NO LIST 
LIST 



CONTROL USE OF SOURCE FILES 

ONEFILE IS NOT DEFINED ASSENBLE EACH SOURCE FILE SEPARATELY 
ONEFILE-ANYTHING ASSEI18LE ALL SOURCE FILES TOGETHER 



.SBTTL TEST 1: EXISTENCE VERIFICATION TEST 



TEST 1 



- EXISTENCE VERIFICATION TEST 
THIS TEST VERIFIES THE EXISTENCE OF THE UUT BY 
ATTEMPTING TO READ FIRST THE IP AND THEN THE SA 
REGISTERS OF THE TU61. VECTOR 4 IS SET UP UITH 
A TRAP HANDLING ROUTINE IN CASE QF A NON-EXISTENT 
MEMORY TIMEOUT. 



000240 

012737 000001 
005737 002312 
001404 

012737 000010 



Tl:: 



OOOOOOG 
OOOOOOG 



BGNTST 

NOP 
MOV 
TST 
BEQ 
MOV 



♦l.ITRCNT 

PASCNT 

Tl.l 

♦lO.ITRCNT 



iSET UP FOR ONE TEST ITERATION 

I IF PASS 0 

I THEN START TEST 

) ELSE 00 MULTIPLE ITERATIONS 



HAROUARE TEST MACRO Y05.02 Thursday 25-^.. 85 16:53 
TEST 1: EXISTENCE VERIFICATION TEST 



2817 034042 


A jk jk A jk 

000240 








NOP 


2818 034044 












034044 








▼ 4 4 

Tl.l: 




034044 


104402 








TO AB 

TRAP 


2819 034046 


005037 


002316 




19 : 


CLR 


2820 












2821 034052 










SCTVCC 


034052 


012746 


AA A V M A 

000340 






flOV 


034056 


012746 


AV Af e£ 

030656 






flOV 


034062 


012746 


AAAAAA 

000004 






flOV 


034066 


012746 


A A A A A V 

000003 






nov 


034072 


104437 








TO AB 

TRAP 


034074 


062706 


AAAA 4 A 

000010 






Ann 
ADD 


2822 034100 


000240 








una 
NOP 


2823 034102 


005074 


AAAAAA 

000000 






^1 o 
CLR 


2824 034106 


000240 








kind 
NOP 


2825 034110 










nci Av 
DELAY 


034110 


012727 


AAAA A 4 

000001 






MAIi 

nov 


034114 


AAAAAA 

000000 








.WORD 


034116 


A4 9^*%^ 

013727 


AA 1 4 4 C 

002116 






MAIi 

nov 


034122 


AAAAAA 

000000 








.HONU 


AT 4 4 'SM 

034124 


005367 


177772 






ncf 
UtL 


AV A 4 VA 

034130 


001375 








ouc 

DNt 


034132 


AAC V£ ^ 

005367 


177756 






DEC 


034136 


001367 








Okie 

dNc 


2626 












2827 034140 


005737 


AA^V 4 £ 

002316 






TCT 


2828 034144 


AA 4 < 4 £ 

001416 








OCA 


2829 034146 


AAAOil A 

000240 








NOP 


2830 034150 


012737 


02 3647 


AA^VSA 

002330 




MAU 

nuv 


'>AV4 AV< 4 C£ 

2831 034156 










cKKUr 


AV A 4 C£ 

034156 


4 Ail il CC 

104455 










AVA 4 CA 

034160 


AAAA AC 

000005 










034162 


A^A 4 ilA 

024140 










AV ii 4 £ Jl 

034164 


027222 








unon 

• HUKU 


2832 034166 










A^l AAD 

LKLOOr 


AV il 4 

034166 


4 AJI Jl A£. 

10440O 








TOAD 


'^AW AV44 ^A 

2633 034170 










nnm i 
uuuu 


AV< 4 ^A 

034170 


013700 


00233c 






nuv 


AV d 4 

034174 


4 AAA CI 

104451 










AAVA AVA 4 ^£ 

2834 034176 












034176 


4 AA il 4 A 

104410 








T3 AO 


A V A O AA 

034200 


AAAAAA 

000002 








, HUKU 


2835 












2836 034202 








59 : 


C&iACi Ml 


034202 








1 4 AA4 A . 

L10014 : 




C34202 


« Add AV 

104403 








TO AO 


2837 034204 


AAAt A A 

000240 








UAO 
NOP 


2838 034206 










LLKVCL 


034206 


A 4 t^AA 

012700 


AAAA Ad 

000004 






MAU 

nov 


A V A t 4 t 

034212 


104436 








TO AO 


2039 034214 


03c re4 


AAAAA1 


. lAAA 1 A 




PTT 


2840 034222 


001402 








BEQ 


2841 034224 










ESCAPE 


034224 


104410 








TRAP 


034226 


000264 








.WORD 



2842 
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SEQ 79 



OBSUB 
TRP4FG 

«VEC4.«TRAP4.*PRI07 

♦PRI07,-(SP) 

«TRAP4,-(SP) 

♦VEC4,-(SP) 

♦3,-(SP) 

OSVEC 

«10.SP 

8TUIP(R4) 

1 

•l.(PC)* 
0 

L»OLY,(PC)» 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 

TRP4FG 
5t 

♦CTRL.FRUIS 

S.ENSG5.PRIERR 

OERDF 

5 

EMSG5 
PRIERR 

CICLPl 

LOGUNT 

LOGUNT.RO 

CIDQOU 

SUB 

CIESCAPE 
L10014-. 



OEsue 

«VEC4 

♦VEC4.ro 

CICVEC 

•0RPFLG.LUNFLG(R4) 

T1.2 

TST 

CIESCAPE 
L10013-. 



(CLEAR NXn TRAP FLAG 

(SET UP VECTOR 4 FOR NXn TRAP 



(WRITE THE IP REGISTER 
(HAKE SURE TIHEOUT CAN OCCUR 



ilF NO TRAP OCCURRED 
: THEN CONTINUE TEST 

(IDENTIFY FAILING FRU FOR PRINTOUT 
("NXM ON READ TUIP" 



(LOOP ON ERROR? 
(DROP UNIT 

(CAN'T CONTINUE 



(RESTORE VECTOR 4 



(IF UNIT WAS NOT DROPPED 
( THEN CONTINUE TESTING 
I ELSE LEAVE TEST 
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2943 034230 










BGN^i <S 


034230 








T1.2: 




034230 


104402 








TRAP 


2944 034232 


005037 


002316 




10*: 


CLi* 


2945 












2946 034236 










SETVEC 


0342S6 


012746 


000340 






NOV 


034242 


012746 


030656 






nov 


034246 


012746 


000004 






nov 


034252 


012746 


000003 






MOV 


034256 


104437 








TRAP 


034260 


062706 


000010 






ADO 


2947 034264 


000240 








NOP 


2949 034266 


005774 


000002 






TST 


2949 034272 


000240 








NOP 


2950 034274 










DELAY 


034274 


012727 


000031 






MOV 


034300 


000000 








.UORD 


034302 


013727 


002116 






MOV 


034306 


000000 








.WORD 


034310 


005367 


177772 






DEC 


034314 


001375 








BNE 


034316 


005367 


177756 






DEC 


034322 


001367 








BNE 


2951 












2952 034324 


005737 


002316 






TST 


2953 034330 


001416 








BEO 


2954 034332 


000240 








NOP 


2955 034334 


012737 


025647 


002330 




MOV 


2956 034342 










ERRDF 


034342 


104455 








TRAP 


034344 


000007 








.WORD 


034346 


024212 








.UORO 


034350 


027222 








.WORD 


2957 034352 










A L> ■ AAA 

CKLOOP 


034252 


104406 








TRAP 


2959 034354 










OOOU 


034354 


013700 


002332 






MOV 


034360 


104451 








TRAP 


2959 034362 










ESCAPE 


034362 


104410 








TRAP 


034364 


000062 








.WORD 


2960 












2961 034366 


017464 


000002 


A A A A a A 

000012 


15*: 


MOV 


2962 034374 


032764 


A A A A A A 

004000 


A A A A a '^ 

000012 




BIT 


2963 034402 


001021 








BNE 


2964 034404 


000240 








NOP 


2965 034406 


012737 


A A M A A A 

004000 


002334 




MOV 


2966 034414 


012737 


025670 


002330 




MOV 


2967 034422 










ERRDF 


034422 


104455 








TRAP 


034424 


000010 








.UORD 




024233 










034430 


027026 








.UORD 


2868 034432 










CKLOOP 


034432 


104406 








TRAP 


2869 034434 










DOOU 



Paaa 59 2 



SEQ 79 



C»BSUB 
TRP4FG 

*VEC4,«TRAP4,*PRI07 

«PR107.-(SP) 

♦TRAP4.-(SP) 

«VEC4,-(SP) 

•3.-(SP) 

CISVEC 

*10.SP 

9TUSA(R4) 

25. 

#25. .(PC)* 
0 

L»DLY.(PC)* 
0 

-6(PC) 
.-4 

-22( PC) 
.-20 

TRP4FG 
15» 

•CTRL.FRUIS 

7. EMSG7.PRIERR 
CIEROF 

7 

EMSG7 
PRIERR 

C»CLP1 

LOGUNT 

LOGUNT.RO 

ODOOU 

SUB 

OESCAPE 
L10015-. 

aTUSA(R4).TUSASV(R4) 

♦B.Sl,TUSASV(R4) 

161 

«B.S1,SAEXP 
•LSCT.FRUIS 

8, .EMSGB.PRISA 
CJERDF 

9 

EMSG9 
PRISA 

C»CLP1 
LOGUNT 



(CLEAR NXM ERROR FLAG 

I SET VECTOR 4 FOR NXM TRAPS 



sREAD THE SA REGISTER 
iUAIT TO ALLOU NXM TRAP 



:IF NXM DID NOT OCCUR 
; THEN CONTINUE TEST 

;IDENTIFY FAILING FRU FOR PRINTOUT 
s"NXM ON FIRST READ OF SA" 



:loop on error? 
:drop unit if not 

jleave test 



.-GET A COPY OF SA IN MEMORY 

sIF STEP 1 BIT IS SET 

; THEN TEST 1 IS COMPLETE 

jLOAD -EXPECTED FOR PRINTOUT 
{IDENTIFY FAILING FRU FOR PRINTOUT 
j"SA REG IN ERROR ON FIRST READ' 



sLOOP ON ERROR? 
5 DROP UNIT IF NOT 
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034434 


013700 


002332 


MOV 


LOGUNT.RO 


034440 


104451 




TRAP 


CtOODU 


2870 034442 






ESCAPE 


SUB 


034442 


104410 




TRAP 


CIESCAPE 


034444 


000002 




.WORD 


L10015 . 


2871 034446 




16t: 


ENDSUB 




034446 




L 10015; 






034446 


104403 




TRAP 


CtESUB 


2872 










2873 034450 


005037 


002334 20$: 


CLR 


SAEXP 


2874 034454 






CLRVEC 


«VEC4 


034454 


012700 


000004 


MOV 


•VEC4,R0 


034460 


104436 




TRAP 


CtCVEC 


2875 034462 


032764 


000001 000014 


BIT 


♦ORPFLG.L 


2876 0S4470 


001006 




BNE 


251 


2877 034472 


005337 


00 00 GOG 


DEC 


ITRCNT 


2878 034476 


000240 




NOP 




2879 034500 


001402 




BEQ 


25 1 


2880 034502 


000137 


034044 


JI1P 


Tl.l 


2981 










2882 034506 




251: 


EXIT 


TST 


034506 


104432 




TRAP 


CIEXIT 


034510 


000002 




.WORD 


L10013-. 


2883 










2884 










2885 






.EVEN 




2886 










2587 034512 






ENOTST 




034512 




L10013: 






034512 


104401 




TRAP 


CIETST 



2688 



jLEAVE TEST 



s CLEAR ERROR INDICATOR 
{RESTORE VECTOR 4 



J IF UNIT DROPPED 

i THEN LEAVE NOU 

;IF ITERATIONS €QUAL 0 

; THEN LEAVE TEST 

: ELSE GO BACK FOR MORE 
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SEQ 81 



2891 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2911 

2912 034514 
034514 

2913 

2914 034514 

2915 034522 

2916 034524 
034524 
034526 

2917 034530 

2918 034536 

2919 034544 

2920 034552 

2921 034554 
2922 

2923 034562 

2924 034566 

2925 034574 

2926 034602 

2927 034606 

2928 034612 

2929 034620 

2930 034626 
2931 

2932 034634 

2933 034642 

2934 034650 

2935 034656 

2936 034664 

2937 034672 
2938 

2939 034700 

2940 034704 

2941 034710 
2942 

2943 034712 
034712 
034714 
034716 
034720 

2944 034722 
034722 

2945 034724 



032764 
001402 

104432 

000214 
012737 
012737 
022737 
001403 
012737 

012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 

012737 
012737 
012737 
112737 
012737 
012737 

004737 
005737 
001412 



104455 
000011 
024271 
027002 

104406 



.SBTTL TEST 2: INITIALIZATION TEST (POUER UP MICROOI AGNOSTICS) 



TEST 2 - INITIALIZATION TEST (POWER UP HICROOIAGNOSTICS) 

THIS TEST COMMENCES STEP 1 Of THE UQ-PORT INITIALIZATION 
SEQUENCE WITH INTERRUPTS DISABLED. AS A RESULT. THE ROM 
RESIDENT MICROOI AGNOSTICS WILL BE RUN TO COMPLETION AND 
CHECKED FOR ANY ERRORS. 



T2: 



000001 000014 



025632 
000001 
000001 



002330 1$: 

OOOOOOG 

002312 



000012 OOOOOOG 



000000 
000001 
000004 
002272 
002272 
002272 
104400 
005700 

060050 
010211 
000000 
000040 
000000 
040000 

031330 
002340 



002336 
002272 



002306 
002272 
002302 

002274 
002304 
002276 
002307 
002300 
002310 



2*; 



BGNTST 



BIT 

BEQ 

EXIT 

TRAP 

.WORD 

MOV 

MOV 

CMP 

BEQ 

MOV 

MOV 
MOV 
MOV 
ASR 
ASR 
MOV 
BIS 
MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

JSR 
TST 
BEQ 

ERROF 

TRAP 

.WORD 

.WORD 

.WORD 

CKLOOP 

TRAP 

DODU 



«0RPrLG.LUNFLG(R4) 

II 

TST 

CIEXIT 
L10016-. 
•LESI.FRUZS 
♦l.ITRCNT 
♦l.PASCNT 
21 

«10. .ITRCNT 

«0,R5 
♦l.INISTP 
TUVEC(R4).STPTBL 
STPTBL 
STPTBL 

STPTBL. CMPTBL»4 
♦104400. STPTBL 
«e.Sl!B.QB!B.0l!B. 

♦COMMAR. STPTBL ^2 
#010211. CMPTBL»2 
♦0.STPTBL»4 
♦40,CMPTBL»5 
«0. STPTBL ^6 
4040000. CnPTBL»6 



I IF UUT NOT DROPPED 
I THEN DO TEST 
i ELSE GET OUT 



PC.STEPl 

STEPST 

T2EXT 

9. .EMSG9.PRIINI 

C«EROF 

9 

EMSG9 
PRIINI 

C»CLP1 
LOGUNT 



(FAILING FRU IN CASE OF ERROR 
I SET UP FOR ONE TEST ITERATION 
ilF FIRST PASS 
» THEN START TEST 
: ELSE DO 10 ITERATIONS 

J SET UP R5 AS INDEX TO STEP TABLES 
J STEP 1 FOR ERROR PRINTOUT 
jPUT VECTOR IN STEP 1 
(DIVIDE BY TWO 
(DIVIDE BY FOUR 
(PUT VECTOR IN STEP 3 COMPARE 
(REST OF STEP ONE 
OO'B.MP.CMPTBL 

(STEP 1 COMPARE VALUE 
(STEP 2 - COMM AREA ADDRESS 
(STEP 2 COMPARE 
(STEP 3 - HIGH ADDRESS 
(REST OF STEP 3 COMPARE 
(STEP 4 

(STEP 4 COMPARE 

(GO DO IT 

(IF STATUS OKAY 

{ THEN DO NEXT TEST 

("SA CONTENTS IN ERROR- 



(LOOP ON ERROR? 
(DROP UUT 
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034724 013700 002332 
034730 104451 
2946 034732 

034732 104410 
034734 000006 

2947 

2948 034736 

034736 104432 
034740 000002 

2949 

2950 034742 
034742 

034742 104401 

2951 



nov logunt.ro 

TRAP ClOODU 

ESCAPE TST 

TRAP CI ESCAPE 

.WORD L10016-. 

T2EXT: EXIT TST 

TRAP CIEXIT 

.WORD L10016-. 



L100I6: 



ENDTST 
TRAP 



CIETST 



(LEAVE TST 



OOOOCl 
000001 



HARDWARE TEST MACRO ""05. 02 
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2954 
295a 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2%8 
2969 
2970 
2971 
2972 
2976 

2977 034744 
034744 

2978 

2979 034744 

2980 034752 

2981 034754 
034754 
034756 

2982 034760 

2983 034766 

2984 034774 

2985 034776 
2986 

2987 035004 

2988 035010 

2989 035016 

2990 035024 

2991 035030 

2992 035034 

2993 035042 

2994 035050 
2995 

2996 035056 

2997 035064 

2998 035072 

2999 035100 

3000 035106 

3001 035114 
3002 

3003 035122 

3004 035126 

3005 035132 
3006 

3007 035134 

3008 035142 
035142 
035144 
035146 
035150 

3C09 035152 



Thursday 25-Jul-85 16:53 Pag« 63 



.SBTTL TEST 3: INITIALIZATION TEST 



SEQ 83 



032764 
001402 

104432 
000402 
012737 
022737 
001403 
012737 

012705 
012737 
016437 
C06237 
006237 
013737 
052737 
012737 

012737 
012737 
012737 
112737 
012737 
012737 

004737 
005737 
001415 



TEST 3 - INITIALIZATION TEST 

THIS TEST COMMENCES THE UQ-PORT INITIALJZATIW SEQUENCE 
WITH INTERRUPTS DISABLED. IT VERIFIES THAT ALL STEP 
TRANSITIONS OCCUR WITHIN THE ALLOTED TIME. AND THAT ALL 
HOST SUPPLIED INFORMATION IS ECHOED BY THE UUT. THE 
PROGRAM FURTHER VERIFIES THAT NO INTERRUPTS OCCUR AS A 
RESULT OF THE STEP TRANSITIONS. 



T3: 



000001 000014 



OOOOOOG 1): 
002312 



000012 OOOOOOG 



000000 

000001 
000004 
002272 
002272 
002272 
104400 
005700 

060050 
010211 
000000 
000040 
000000 
040000 

031330 
002340 



002336 
002272 



002306 
002272 
002302 

002274 
002304 
002276 
002307 
002300 
002310 



2>: 



012737 025632 002330 

104455 
000011 
024271 
027002 



BGNTST 



BIT 

BEQ 

EXIT 

TRAP 

.UORO 

MOV 

CMP 

BEQ 

MOV 

MOV 
MOV 
MOV 
ASR 
ASR 
MOV 
BIS 
MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

JSR 
TST 
BEQ 

MOV 

ERROF 

TRAP 

.WORD 

.WORD 

.WORD 

CKLOOP 



«0RPFLG.LUNFLG(R4) 

1> 

TST 

CtEXIT 

L10017-. 

n.ITRCNT 

♦l.PASCNT 

2» 

»10. .ITRCNT 

♦0.R5 

♦l.INISTP 

TUVEC(R4),STPTBL 

STPT8L 

STPTBL 

STPTBL.CMPT6L*4 
*i04400. STPTBL 
«e.Sl!B.QB!B.OI!B.OO!B, 

•COMHAR. STPTBL *2 
♦01021l.CMPTBL*2 
#0, STPTBL* 4 
*40.CMPTBL*5 
♦0. STPTBL 
«040000,CHPTBL*6 

PC.STEPl 

STEPST 

5) 

«.ESI.FRUIS 

9. .EMSG9.PRIINI 

C$EROF 

9 

EMSG9 
PRIINI 



(IF UUT NOT DROPPED 
i THEN DO TEST 
i ELSE GET OUT 



sSET UP FOR ONE TEST ITERATION 

sIF FIRST PASS 

t THEN START TEST 

i ELSE DO 10 ITERATIONS 

;SET UP R5 AS INDEX TO STEP TABLES 
I STEP 1 FOR ERROR PRINTOUT 
jPUT VECTOR IN STEP 1 
jDIVIDE BY TWO 
(DIVIDE BY FOUR 
(PUT VECTOR IN STEP 3 COMPARE 
(REST OF STEP ONE 
MP.CMPTBL 
(STEP 1 COMPARE VALUE 
(STEP 2 - COMM AREA ADDRESS 
(STEP 2 COMPARE 
(STEP 3 - HIGH ADDRESS 
(REST OF STEP 3 COMPARE 
(STEP 4 

(STEP 4 COMPARE 

(GO DO IT 

(IF STATUS OKAY 

{ THEN CONTINUE TEST 

(FAILING FRU IN CASE OF ERROR 
{»SA CONTENTS IN ERROR" 



(LOOP ON ERROR? 
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03S152 104406 TRAP 

3010 035154 DOOU 
035154 013700 002332 MOV 
035160 104451 TRAP 

3011 035162 ESCAPE 
035162 104410 TRAP 
035164 000174 .UORO 

3012 

3013 035166 005237 002336 5): INC 

3014 035172 062705 000002 ADO 

3015 035176 012737 000100 002346 6): NOV 

3016 035204 016537 002302 002334 NOV 

3017 035212 012737 037200 002344 7): NOV 

3018 035220 017464 000002 000012 MOV 

3019 035226 022705 000006 CHP 

3020 035232 001005 BNE 

3021 035234 033764 002334 000012 BIT 

3022 035242 001027 BNE 

3023 035244 000404 BR 

3024 035246 023764 002334 000012 8): CHP 

3025 035254 001422 BEQ 

3026 035256 004737 031302 9$: JSR 

3027 035262 005737 002350 TST 

3028 035266 001751 BEQ 
3029 

3030 035270 012737 025670 002330 MOV 

3031 035276 ERROF 
035276 104455 TRAP 
035300 000015 .WORD 
035302 024271 .WORD 
035304 027002 .WORD 

3032 035306 CKLOOP 
035306 104406 TRAP 

3033 035310 OODU 
035310 013700 002332 MOV 
035314 104451 TRAP 

3034 035316 ESCAPE 
035316 104410 TRAP 
035320 000040 .WORD 

3035 

3036 035322 016574 002272 000002 10): MOV 

3037 035330 022705 000006 CMP 

3038 035334 001314 BNE 
3039 

3040 035336 032764 000001 000014 BIT 

3041 035344 001003 BNE 

3042 035346 005337 OOOOOOG DEC 

3043 035352 001214 BNE 
3044 

3045 035354 T3EXT: EXIT 

035354 104432 TRAP 

035356 000002 .UORO 

3046 

3047 035360 ENOTST 

035360 L10017: 

035360 104401 TRAP 
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SEQ 84 



C»CLP1 

L06UNT 

LOGUNT.RO 

OOOOU 

TST 

C) ESCAPE 
L10017-. 

INISTP 

«2.R5 

«100. OUTER 

CMPTBLCR5).SAEXP 

«16000., INNER 

8TUSA(R4),TUSASV(R4) 

«6.RS 

8) 

SAEXP.TUSASV(R4) 

10) 

9) 

SAEXP.TUSASV(R4) 
10) 

PC.POELAY 

TOUT 

7) 

♦LSCT.FRUIS 

13. .EMSG9.PRIINI 

OEROF 

13 

EMSG9 
PRIINI 

OCLPl 

LOGUNT 

LOGUNT.RO 

ODODU 

TST 

C) ESCAPE 
L10017-. 

STPTBL(R5).8TUSA(R4) 

♦6.R5 

5) 

«0RPFL6.LUNFLG(R4) 

T3EXT 

ITRCNT 

21 

TST 

CIEXIT 
L10017-. 



:0R0P UUT 



I LEAVE TST 



{ADJUST STEP COUNTER 

I ADJUST TABLE INDEX 

(SET UP FOP DELAY ROUTINE 

tSET UP FOR COMPARE 

iSET UP INNER 

(GET SA CONTENTS 

(ARE UE IN STEP 4? 

{BRANCH IF NOT 

{JUST LOOK FOR STEP 4 BIT 

{IT'S SET SO LET'S GO 

(STAY IN LOOP OTHERWISE 

:IF SA IS WHAT WE EXPECT 

; THEN MOVE ALONG 

; ELSE GIVE UUT SOME TIME 

{IF NO TIMEOUT YET 

: THEN GO TAKE ANOTHER LOOK 

{FAILING FRU IN CASE OF ERROR 
:"SA CONTENTS IN ERROR" 



{WRITE NEXT STEP TO UUT 
{IF NOT IN STEP 4 
{GO BACK TO MAIN LOOP 



{HAS UUT BEEN DROPPED 
•LEAVE NOW IF SO 
.If MORE ITERATIONS LEFT 
I THEN GO 00 IT AGAIN 



C»ETST 
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SEO 85 



3050 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 



.SBTTL TEST 4: SA REGISTER URAP TEST 



I TEST 4 - SA REGISTER URAP TEST 

THIS TEST WILL INITIALIZE THE UUT BY WRITING TO ITS 
IP REGISTER. IT WILL TORCE THE UUT INTO DIAGNOSTIC 
WRAP MODE. AND WRITE FIRST A FLOATING 0 DATA PATTERN, 
FOLLOWED BY A FLOATING 1 DATA PATTERN TO THE SA REG. 
EACH WRITE WILL BE FOLLOUEO BY A READ AND COMPARE 
OPERATION. 



3066 


















3067 


















3071 


035362 










BGNTST 








035362 








T4:: 








3072 


















3073 


035362 


004737 


030704 






JSR 


PC.CHKCAC 




3074 


035366 


032764 


000001 


000014 




BIT 


«0RPFLG.LUNFLG(R4) 


iIF UUT NOT DROPPED 


3075 


035374 


001402 








BEQ 


11 


I THEN 00 TEST 


3076 


035376 










EXIT 


TST 


t ELSE GET OUT 




035376 


104432 








TRAP 


CIEXIT 






035400 


000522 








.WORD 


L10020-. 




3077 


035402 


012737 


000001 


002336 


11: 


MOV 


♦l.INISTP 


{STEP 1 FOR ERROR PRINTOUT 


3078 


035410 


012737 


000001 


OOOOOCG 




MOV 


«1.ITRCNT 


iSET UP FOR ONE TEST ITERATION 


3079 


035416 


022737 


000001 


002312 




CMP 


«1,PASCNT 


iIF FIRST PASS 


3080 


035424 


001403 








BEQ 


2> 


i THEN START TEST 


3081 


035426 


012737 


000002 


OOOOOOG 




NOV 


*2,ITRCNT 


t ELSE 00 2 ITERATIONS 


3082 


















3083 


035434 


012737 


140000 


002334 


2>: 


MOV 


«eiT15!B.UR.SAEXP 


iSET UP STEP 1 FOR DIAG. URAP MODE 


3084 


035442 


013737 


002334 


002272 




MOV 


SAEXP.STPTBL 


iPUT IT IN STEP 1 OF TABLE 


3085 


035450 


004737 


031330 






JSR 


PC.STEPl 


iGO DO IT 


3086 


















3087 


035454 


005737 


002340 






TST 


STEPST 


lIF STATUS OKAY 


3088 035460 


001415 








BEQ 


5> 


t THEN CONTINUE TEST 


3089 


















3090 


035462 


012737 


025647 


002330 




MOV 


«CTRL,FRUIS 


1 FAILING FRU FOR PRINTOUT 


3091 


035470 










ERROF 


9. ,EMSG9.PRIINI 


i'SA CONTENTS IN ERROR' 




035470 


104455 








TRAP 


CIERDF 






035472 


000011 








.WORD 








035474 


024271 








.WORD 


EnSG9 






035476 


027002 








.WORD 


PRIINI 




3092 


035500 










CKLOOP 




iLOOP ON ERROR? 




035500 


104406 








TRAP 


CICLPl 




3093 


035502 










OOOU 


LOGUNT 


;DROP UUT 




035502 


013700 


002332 






MOV 


LOGUNT.RO 






035506 


104451 








TRAP 


OOOOU 




3094 


035510 










ESCAPE 


TST 


s LEAVE TST 




035510 


104410 








TRAP 


C» ESCAPE 






035512 


000410 








.WORD 


L10020-. 




3095 


















3096 


035514 


012737 


000100 


002346 


5»: 


MOV 


«100. OUTER 


iSET UP FOR DELAY ROUTINE 


3097 


035522 


012737 


006000 


002344 


6): 


MOV 


«6000. INNER 


;^tT UP INNER 


3098 


035530 


017464 


000002 


000012 




MOV 


8TUSA(R4),TUSASV(R4) 


iGET SA CONTENTS 


3099 


035536 


023764 


002334 


000012 




CMP 


SAEXP.TUSASV(R4) 


ilF SA IS WHAT WE EXPECT 


3100 


035544 


001422 








BEQ 


101 


1 THEN MOVE ALONG 



HAROUARE TEST MACRO Y05.02 Thursday 25-Jul-85 16:53 Page 65-1 
TEST 4: SA REGISTER URAP TEST 



3101 035546 


004737 


031302 






JSR 


PC.POELAY 


3102 0355S2 


005737 


002350 






TST 


TOUT 


3103 03SS56 


001761 








6EQ 


61 


3104 














3105 03SS60 


012737 


025647 


002330 




MOV 


♦CTRL.FRUIS 


3106 035566 










ERROF 


10. .EMSG9,PRIINI 


035566 


104455 








TRAP 


OEROF 


035570 


000012 








.WORD 


10 


035572 


024271 








.UORD 


EMSG9 


035574 


027002 








.WORD 


PRIINI 


3107 035576 










CKLOOP 




035576 


104406 








TRAP 


CICLPl 


3108 035600 










DODU 


LOGUNT 


035600 


013700 


002332 






MOV 


LOGUNT.RO 


035604 


104451 








TRAP 


CtOOOU 


3109 035606 










ESCAPE 


'iST 


035606 


104410 








TRAP 


CtESCAPE 


035610 


000312 








.WORD 


L10020-. 


3110 














3111 035612 


000261 






101: 


SEC 




3112 035614 


012737 


177776 


002342 




MOV 


♦177776, UROATA 


3113 035622 


013774 


00234c 


000002 


lit: 


MOV 


URDATA,8TUSA(R4} 


3114 035630 


013737 


002342 


002334 




MOV 


URDATA.SAEXP 


3115 035636 


012737 


000100 


002346 




MOV 


«100. OUTER 


3116 














3117 035644 


012737 


006000 


002344 


15«: 


MOV 


•6000, INNER 


3118 035652 


017464 


000002 


000012 




MOV 


9TUSA(R4},TUSASV(R4} 


3119 035660 


023764 


002334 


000012 




CMP 


SAEXP,TUSASV(R4} 


3120 035666 


001422 








BEQ 


201 


3121 035670 


004737 


031302 






JSR 


PC.POELAY 


3122 035674 


005737 


002350 






TST 


TOUT 


3123 035700 


001761 








BEQ 


ISt 


3124 














3125 035702 


012737 


025647 


002330 




MOV 


4CTRL.FRUIS 


3126 035710 










ERROF 


11.. EHSGIO. PRIINI 


035710 


1044SS 








TRAP 


CtERDF 


035712 


000013 








.UORD 


11 


035714 


024316 








.WORD 


EHSGIO 


035716 


027002 








.WORD 


PRIINI 


3127 035720 










CKLOOP 




035720 


104406 








TRAP 


CtCLPl 


3128 035722 










DODU 


LOGUNT 


035722 


013700 


002332 






MOV 


LOGUNT.RO 


035726 


104451 








TRAP 


CtDODU 


3129 035730 










ESCAPE 


TST 


035730 


104410 








TRAP 


C» ESCAPE 


035732 


000170 








.UORD 


L10020-. 


3130 














3131 035734 


006137 


002342 




20): 


ROL 


URDATA 


3132 035740 


103730 








BCS 


IK 


3133 














3134 035742 


012737 


000001 


002342 




MOV 


«1. URDATA 


3135 035750 


013774 


002342 


000002 


24$: 


MOV 


URDATA. 8TUSA(R4) 


3136 035756 


013737 


002342 


002334 




MOV 


URDATA, SAEXP 


3137 035764 


012737 


000100 


002346 




MOV 


#100, OUTER 


3138 














31S9 035772 


012737 


006000 


002344 


251: 


MOV 


«6000. INNER 



J ELSE GIVE UUT SOME TIME 

jIF NO TIMEOUT YET 

I THEN GO TAKE ANOTHER LOOK 

jFAILING FRU FOR PRINTOUT 
i''SA CONTENTS IN ERROR" 



J SET CARRY BIT 

J SET UP FLOATING "0" PATTERN 
(SEND DATA TO UUT 
iSAVE A COPY FOR COMPARE 
J SET UP FOR DELAY ROUTINE 

I INNER TOO 
{READ SA 

tIF DATA MATCHES 

I THEN CHANGE DATA 

i ELSE GIVE UUT SOME TIME 

I IF NO TIMEOUT YET 

i THEN GO TAKE ANOTHER LOOK 

(FAILING FRU FOR PRINTOUT 
{"SA URONG IN DATA URAP- 



tGET OUT IF NOT LOOPING 



iSHIFT TEST PATTERN 
tUE'RE NOT DONE YET 

jSET UP FOR FLOATING 1 PATTERN 
iSEND DATA TO UUT 
{KEEP A COPY FOR COMPARE 
:SET UP FOR DELAY ROUTINE 

: DELAY ROUTINE TOO 
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3140 


036000 


017464 


000002 


000012 




MOV 


3141 


036006 


023764 


002334 


000012 




CMP 


3142 


036014 


001422 








BEQ 


3143 


036016 


004737 


031302 






JSR 


3144 


036022 


005737 


002350 






TST 


3145 


036026 


001761 








BEQ 


3146 














3147 


036030 


012737 


025647 


002330 




MOV 


3148 


036036 










ERRDF 




036036 


104455 








TRAP 




036040 


000014 








.WORD 




036042 


024316 








.WORD 




036044 


027002 








.WORD 


3149 


036046 










CKLOOP 




036046 


104406 








TRAP 


31S0 


036050 










DODU 




036050 


013700 


002332 






MOV 




036054 


104451 








TRAP 


3151 


036056 










ESCAPE 




036056 


104410 








TRAP 




036060 


000042 








.WORD 


3152 














3153 


036062 


006137 


002342 




30): 


ROL 


3154 


036066 


103330 








BCC 


3155 


036070 


005337 


OOOOOOG 






DEC 


3156 


036074 


001402 








BEQ 


3157 


036076 


000137 


035434 






JMP 


3158 














3159 


036102 


005737 


OOOOOOG 




T4EXT: 


TST 


3160 


036106 


001403 








BEQ 


3161 


036110 


042737 


000014 


177746 




BIC 


3162 


036116 








EXT: 


EXIT 




036116 


104432 








TRAP 




036120 


000002 








.WORD 


3163 














3164 


036122 










ENOTST 




036122 








L10020: 






036122 


104401 








TRAP 
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SEQ 87 



8TUSA(R4).TUSASV(R4) 
SAEXP,TUSASV(R4) 
30 « 

PC.POELAY 

TOUT 

251 

#CTRL.FRUIS 

12. .EMSGIO.PRIINI 

CIERDF 

12 

EMSGIO 
PRIINI 

CICLPl 

LOGUNT 

LOGUNT.RO 

ClOOOU 

TST 

C» ESCAPE 
L10020'. 

UROATA 
241 

ITRCNT 

T4EXT 

2« 

CPFLG 
EXT 

*OISCAC.CCR 

TST 

C»EXIT 
L10020-. 



I READ THE SA 

J IF IT MATCHES 

J THEN SEE IF UE'RE DONE 

i ELSE GIVE UUT SOME MORE TIME 

J IF NO TIMEOUT YET 

I THEN TAKE ANOTHER LOOK 

;FAILING FRU FOR PRINTOUT 
i"SA WRONG IN OATA WRAP" 



(LEAVE TEST IF NOT LOOPING 



jSHIFT DATA PATTERN 
iWE'RE NOT DONE YET 
llF ITERATIONS ' 0 
! THEN LEAVE TEST 
I ELSE 00 ANOTHER ONE 

i CHECK IF CACHE WAS DISABLED 

iNO. BRANCH 

s RE -ENABLE CACHE 

:GET OUTTA HERE 



CIETST 



HAROUARE TEST 
TEST 5: 
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SEQ 88 



3167 
3168 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 
3184 
3188 
3189 

3190 



.SBTTL TEST 5: 

.58TTL SUBTEST 1: VECTOR AND INTERRUPT TEST 



3191 
3192 
3193 
3194 



3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 



036124 
036124 
03612« 
036124 
036124 

036126 
036134 
036136 
036136 
036140 
036142 
036150 
036156 
036164 
036172 
036174 

036202 
036206 
036212 
036220 
036226 
036232 
036236 
036244 
036252 

036260 
036266 
036274 
036302 
036310 
036316 
036324 

036332 
036336 
036342 

036344 



104402 

032764 
001402 

104432 
001114 
042764 
012737 
012737 
022737 
001403 
012737 

004737 
012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 

012737 
012737 
012737 
052737 
112737 
012737 
012737 

004737 
0C5737 
001412 



000004 
025647 
000001 
000001 



031212 
000000 
000001 
000004 
002272 
002272 
002272 
104600 
005700 

060050 
010211 
000000 
000200 
000040 
000000 
040000 

031330 
002340 



TEST 5 
SUBTEST 1 - 

VECTOR AND INTERRUPT TEST 

TEST 3 IS REPEATED. BUT WITH INTERRUPTS ENABLED. 
THE PROGRAM VERIFIES THAT AN IHTERRUPT OCCURS AT 

THE END OF STEPS 1-3. 



T5:: 
TS.li 



000001 000014 



000014 
002330 
OOOOOOG 
002312 



1»: 



000012 OOOOOOG 



2i: 



002336 
002272 



002306 

002272 
002302 

002274 
002304 
002276 
002306 
002307 
002300 
002310 



BGNTST 

BGNSUB 

TRAP 

BIT 

BEQ 

EXIT 

TRAP 

.WORD 

CIC 

MOV 

MOV 

CMP 

BEQ 

MOV 

JSR 
MOV 
MOV 
MOV 
ASR 
ASR 
MOV 
BIS 
MOV 

MOV 

MOV 

MOV 

BIS 

MCVB 

MOV 

MOV 

JSR 
TST 
BEQ 



CIBSUB 

«0RPFLG.LUNFLG(R4) 
II 

TST 

CIEXIT 
L10021-. 

•BRFLAG,LUNFLG(R4) 

♦CTRL.FRUIS 

«1.ITRCNT 

«1.PASCNT 

21 

#10..ITRCNT 

PC, VECTOR 

«0.R5 

•l.INISTP 

TUVEC(R4).STPTBL 

STPTBL 

STPTBL 

STPTBL. CMPTBL»4 
•104600, STPTBL 
«6.Sl!B.Qe!B.Dl!B. 

♦C0MMAR.STPTBL»2 

•010211,CMPTBL*2 

#0.STPTBL»4 

♦B.IE,CMPTBL*4 

♦40.CMPTBL»5 

♦0. STPTBL 4 6 

#040000, CMPTBL»6 

PC.STEPl 

STEPST 

51 



I IF UUT NOT DROPPED 
i THEN DO TEST 
I ELSE GET OUT 



{DO TEST MITH PRIORITY SET TO 0 
{FAILING FRU IN CASE OF ERROR 
I SET UP FOR ONE TEST ITERATION 
I IF FIRST PASS 
, THEN START TEST 
t ELSE 00 10 ITERATIONS 

sSET UP VECTOR WITH INTERRUPT HANDLER 
I SET UP R5 AS INDEX TO STEP TABLES 
sSTEP 1 FOR ERROR PRINTOUT 
tPUT VECTOR IN STEP 1 
i DIVIDE BY TUO 
t DIVIDE BY FOUR 
iPUT VECTOR IN STEP 3 COMPARE 
:REST OF STEP ONE 
OO'B.MP.CMPTBL 

I STEP 1 CO^«>ARE VALUE 
J STEP 2 - COMM AREA ADDRESS 
(STEP 2 COMPARE 
J STEP 3 - HIGH ADDRESS 
J SET THE INTERRUPT ENABLE BIT 
;REST OF STEP 3 COMPARE 
J STEP 4 

sSTEP 4 COMPARE 



:G0 00 IT 

iIF STATUS OKAY 

I THEN CONTINUE 



TEST 



ERRDF 14 . . EMSG9. PRIINI 



t"SA CONTENTS IN ERROR' 
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SUBTEST 1: VECTOR AND INTERRUPT TEST 





036344 


104455 








TRAP 




036346 


000016 








.WORD 




036350 


024271 








.UORD 




036352 


027002 








.WORD 


3225 


036354 










CKLOOP 




036354 


104406 








TRAP 


3226 


036356 










DODU 




036356 


013700 


002332 






MOV 




036362 


104451 








TRAP 


3227 


036364 










ESCAPE 




036364 


104410 








TRAP 




036366 


000666 








.WORD 


3228 














3229 


036370 


012737 


000100 


002346 


5t: 


MOV 


3230 


036376 


016537 


002302 


002334 




MOV 


3231 


036404 


012737 


037200 


002344 


7$: 


MOV 


3232 


036412 


032764 


000002 


000014 




BIT 


3233 


036420 


001022 








BNE 


3234 


036422 


004737 


031302 




9$: 


JSR 


3235 


036426 


005737 


002350 






TST 


3236 


036432 


001764 








BEQ 


3237 














3238 


036434 


012737 


025632 


002330 




MOV 


3239 


036442 










ERROF 




036442 


104455 








TRAP 




0364«4 


000017 








.WORD 




036446 


024344 








.WORD 




036450 


027222 








.UORO 


3240 


036452 










CKLOOP 




036452 


104406 








TRAP 


3241 


036454 










OOOU 




036454 


013700 


002332 






MOV 




036460 


104451 








TRAP 


3242 


036462 










ESCAPE 




036462 


104410 








TRAP 




036464 


000570 








.UORD 


3243 














3244 


036466 


042764 


000002 


000014 


10»: 


BIG 


3245 


036474 


005237 


002336 






INC 


3246 


036500 


062705 


000002 






ADD 


3247 


036504 


016537 


002302 


002334 




MOV 


3248 


036512 


017464 


000002 


000012 




MOV 


3249 


036520 


022705 


000006 






CMP 


3250 


036524 


001005 








BNE 


3251 


036526 


033764 


002334 


000012 




BIT 


3252 


036534 


001022 








BNE 


3253 


036536 


000407 








BR 


3254 


036540 


023764 


002334 


000012 


15t: 


CMP 


3255 


036546 


001415 








BEQ 


3256 














3257 


036550 


012737 


025632 


002330 




MOV 


3258 


036556 








16»: 


ERROF 




036556 


104455 








TRAP 




036560 


000020 








.UORD 




036562 


024271 








.UORD 




036564 


027002 








.WORD 


3259 


036566 










CKLOOP 
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SEQ 89 



r»ERDF 
14 

EMSG9 
PRIINI 

C»CLP1 

LOGUNT 

LOGUNT.RO 

CtOODU 

TST 

CIESCAPE 
L 10021 -. 

♦100. OUTER 
CMPTBL(R5),SAEXP 
«1 6000.. INNER 
«INTFLG.LUNFL6(R4) 
10* 

PC.PDELAY 

TOUT 

71 

♦LESI.FRU;«? 

15..EMSGll.rRIERR 

CIEROF 

15 

EMSGll 
PRIERR 

CICLPl 
LOGUNT 
LOGUNT.RO 
CI DODU 
TST 

CIESCAPE 
L10021-. 

•INTFLG.LUNFLG(R4) 

INISTP 

•2,RS 

CMPT8L(RS).SAEXP 

8TUSACR4).TUSASV(R4) 

«6.RS 

151 

SAEXP.TUSASV(R4) 

201 

16 1 

SAEXP.TUSASV(R4) 
201 

♦LESI.FRUIS 
16.. EMSG9. PRIINI 
CIERDF 
16 

EMSG9 
PRIINI 



:L00P ON EilROR? 
tDROP UUT 

;LEAVE TST 



J SET UP FOR DELAY ROUTINE 

iSET UP FOR COMPARE 

tSET UP INNER 

J IF INTERRUPT OCCURRED 

J THEN SEE IF SA IS CORRECT 

t ELSE GIVE UUT SOME TIME 

J IF NO TIMEOUT YET 

i THEN GO TAKE ANOTHER LOOK 

{FAILING FRU 

I -EXPECTED INTERRUPT DID NOT OCCU^- 



I CLEAR THE INTERRUPT FLAG 

.■ADJUST THE STEP COUNTER 

(ADJUST TABLE INDEX 

sGET THE COMPARISON VALUE 

iGET SA CONTENTS 

;ARE UE IN STEP 4? 

{BRANCH IF NOT 

;JUST LOOK FOR STEP 4 BIT 

iIT'S SET SO LET'S GO 

'ERROR 

ilF SA IS UHAT UE EXPECT 
, THEN MOVE ALONG 

jFAILING FRU 

:"SA CONTENTS IN ERROR" 
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036566 104406 TRAP 

3260 036570 OOOU 
036570 013700 002332 MOV 
036574 104451 TRAP 

3261 036576 ESCAPE 
036576 104410 TRAP 
036600 000454 .WORD 

3262 

3263 036602 016574 002272 000002 201: MOV 

3264 036610 022705 000006 CMP 

3265 036614 001265 BNE 
3266 

3267 036616 032764 000001 0^0014 BIT 

3268 036624 001005 BNE 

3269 036626 005337 OOCOOOG DEC 

3270 036632 001402 BEQ 

3271 036634 000137 036202 JMP 
3272 

3273 036640 004737 031162 TSEXT: JSR 

3274 036644 EXIT 
036644 104432 TRAP 
036646 000406 .WORD 

3275 036650 ENDSUB 
036650 L10022: 
036650 104403 TRAP 
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SEQ 90 



CICLPl 
LOGUNT 
LOGUNT.RO 
CI OOOU 
TST 

CI ESCAPE 
L10021-. 

STPTBL(RS),STUSACR4) 

*6.R5 

51 

O0RPFLG.LUNFLG(R4) 

T5EXT 

ITRCNT 

T5EXT 

21 

PC.RSTVEC 

TST 

CIEXIT 
L1002i-. 



(WRITE NEXT STEP TO UUT 
J IF NOT IN STEP 4 
iGO BACK TO MAIN LOOP 

>HAS UUT BEEN DROPPED 

> LEAVE NOW IF SO 

(IF NO MORE ITERATIONS LEFT 

J THEN EXIT 

I ELSE DO IT AGAIN 

i CATCH ILLEGAL INTERRUPTS 



CIESUB 



HARDUARE TEST MACRO Y0S.02 
SUBTEST 2: BR LEVEL TEST 



3278 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3299 

3300 036652 
036652 

036652 104402 

3301 

3302 036654 032764 

3303 036662 001402 

3304 036664 
036664 104432 
036666 000366 

3305 036670 

3306 036670 052764 

3307 036676 012737 

3308 036704 012737 

3309 036712 022737 

3310 036720 001403 

3311 036722 012737 
3312 

3313 036730 106427 

3314 036734 004737 

3315 036740 012705 

3316 036744 012737 

3317 036752 016437 

3318 036760 006237 

3319 036764 006237 

3320 036770 052737 

3321 036776 016437 
3322 

3323 037004 004737 

3324 037010 005737 

3325 037014 001412 
3326 

3327 037016 
037016 104455 
037020 000016 
037022 024271 
037024 027002 

3328 037026 
037026 104406 

3329 037030 
037030 013700 
037034 104451 
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.SBTTL SUBTEST 2: BR LEVEL TEST 



SCO 91 



i SUBTEST 2 - 

i BR LEVEL TEST 

5 THIS TEST INSURES THAT THE TU81 CAN NOT INTERRUPT 

J WHEN THE CPU PRIORITY IS SET TO 7. THE TEST GOES 

; ONLY THROUGH THE FIRST STEP OF THE INIT SEQUENCE 

: SINCE THE CONTROLLER WILL "HANG" WAITING FOR THE 

i INTERRUPT ACKNOWLEDGE. 



t 

: > ■ 



T5.2! 



000001 000014 



000004 
025647 
000001 
000001 



000014 
002330 
OOOOOOG 
002312 



II: 



000002 OOOOOOG 



000340 
031212 
000000 
000001 
000004 
002272 
002272 
104600 
000004 

031330 
002340 



2)1 



002336 
002272 



002272 
002302 



002332 



BGNSUB 






TRAP 


CIBSUB 




BIT 


MRPFLG . LUNFLGC R4 ) 


iIF UUT NOT OROPPFO 


BEQ 


11 


t THEN DO TEST 


EXIT 


TST 


1 ELSE GET OUT 


TRAP 


CIEXIT 




.WORD 


L10021 - . 




BIS 


fBRFLAG, LUNFLGC R4) 


iDO TEST WITH HIGH PRIORITY 


MOV 


#CTRL.FRUIS 


1 FAILING FRU IN CASE OF ERROR 


nov 


•l.ITRCNT 


I SET UP FOR ONE TEST ITERATION 


CMP 


•1 . PASCNT 


iIF FIRST PASS 


BEQ 


21 


I THEN START TEST 


NOV 


#2 ITRCNT 


I ELSE DO 10 ITERATIONS 


MTPS 


#PRI07 


J CPU PRIORITY • 7 


JSR 


PC. VECTOR 


sSET UP VECTOR WITH INTERRUPT HANDLER 


MOV 


#0,R5 


I SET UP R5 AS INDEX TO STEP TABLES 


MOV 


♦I.INISTP 


(STEP 1 FOR ERROR PRINTOUT 


MOV 


TUVEC(R4).STPTBL 


jPUT VECTOR IN STEP 1 


ASR 


STPTBL 


: DIVIDE BY TWO 


ASR 


STPTBL 


{DIVIDE BY FOUR 


BIS 


♦104600. STPTBL 


iREST OF STEP ONE 


NOV 


TUVEC(R4).CMPTBL 


(STEP 1 COMPARE VALUE 


JSR 


PC. STEP! 


iGO 00 IT 


TST 


STEPST 


J IF STATUS OKAY 


BEQ 


51 


i THEN CONTINUE TEST 


ERRDF 


14.,EMSG9.PRIINI 


t-SA CONTENTS IN ERROR' 


TRAP 


C»EROF 




.WORD 


14 




.WORD 


EMSG9 




.WORD 


PRIINI 




CKLOOP 




:LOOP ON ERROR? 


TRAP 


C»CLP1 




DOOU 


LOGUNT 


iDROP ULT 


MOV 


LOGUNT.RO 




TRAP 


CIDOOU 
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104410 








TRAP 




0007I4 
























01 P7'<7 


OOOIOO 

WV X w 


00934A 








01*^37 

VXwJ^ f 


00?30? 


00P334 




MOV 




012737 

VXC ' ^ f 


037POO 


002344 


71 • 


MQV 




004737 

WV^ • W ' 


03130? 






^wn 


3336 037070 


005737 


002350 

WWCW Jw 






TST 

1 w 1 


3337 03707A 












3338 












3339 037076 


01 7444 

vx / 


WW wVwC 


OA no IP 

Www AC 






3340 037104 


023764 


00P3S4 

VwC w w^ 


0000 IP 

WW WW AC 




CMP 




001419 

>A/X~ XC 








WW W 


3342 












SS43 037114 










ERRDF 


0371 14 


104455 








TRAP 


037116 


000021 

Www t X 








.WORD 


037120 


0P4271 








!uORD 


037122 


027002 








!uORD 


SS44 037124 










CKLOOP 


037124 


104406 








TRAP 


3S4S 037126 










DODU 


037126 


013700 


002332 






MOV 


037132 


104451 








TRAP 


3346 037134 










ESCAPE 


037134 


104410 








TRAP 


037136 


0001 16 

WWW A AW 








.WORD 


3347 












3S48 037140 


032764 


000002 


000014 


10$: 


BIT 


3349 037146 


001415 








BEQ 


3350 037150 

wW«^W Wv ■ ♦ JW 


042764 


000002 


000014 




BIG 


3351 037156 










ERRDF 


037156 


104455 








TRAP 


037160 


000022 








.UORO 


037162 


024405 








.UORO 


037164 

VW ' 


027002 








.UORO 


3352 037166 

WwWK Ww f AW 










CKLOOP 


037166 


104406 








TRAP 


3353 037170 

WW^v WW ( A ■ W 










DODU 


037170 


013700 


002332 






MOV 


037174 


104451 








TRAP 


3354 037176 










ESCAPE 


037176 


104410 








TRAP 


037200 


000054 

WW WW » 








.WORD 


3355 












3356 037202 

WWWV Ww * b Wb 


106427 


000000 




20t: 


MTPS 


3357 037206 

www ' WW ' www 


000240 

WW WW ▼ w 








NOP 


3358 037210 

WWWW WWffcAW 


000240 








NOP 


3359 037212 

WWW 7 WW f C Afc 


042764 


000002 

WW WW Wfc 


000014 




BIC 


3360 












3361 037220 

W WW A W W ( b w w 


032764 


000001 


000014 




BIT 


3362 037226 


001005 








BNE 


3363 037230 


005337 


0000006 






DEC 


3364 037234 


001402 








BEQ 


3365 037236 


000137 


036730 






JMP 


3366 
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SCO 92 



TST 

OESCAPE 
L10021-. 

4100. OUTER 

CMPTBL(R5),SAEXP 

«16u00. .INNER 

PC.PDELAY 

TOUT 

7$ 

0TUSA(R4},TUSASV(R4) 

SAEXP,TUSASV(R4) 

10» 

17..EMSG9.PRIINI 
C»EROF 

17 

EMSG9 
PRIINI 

CICLPl 

LOGUNT 

LOGUNT.RO 

CtDODU 

TST 

CtESCAPE 
L 10021 -. 

«INTFLG.LUNFLG(R4) 
20$ 

♦INTFLG.LUNFLG(R4) 
18.. EnSG12. PRIINI 
CIEROF 
18 

EHSGIZ 
PRIINI 

CICLPl 

LOGUNT 

LOGUNT.RO 

OOOOU 

TST 

C»ESCAPE 

L10021-. 

«PRIOO 



«INTFLG,LUNFLG(R4} 

♦0RPFLG.LUr^LG(R4) 

ST5EXT 

ITRCNT 

ST5EXT 

2» 



(LEAVE TST 



sSET UP FOR DELAY ROUTINE 
jSET UP FOR COMPARE 
J SET UP INNER 

: ELSE GIVE UUT SOME TIME 

jIF NO TIMEOUT YET 

; THEN GO TAKE ANOTHER LOOK 

jGET SA CONTENTS 

jIF CONTENTS OKAY 

; THEN CHECK FOR INTERRUPT 

i"SA CONTENTS IN ERROR" 



I IF NO INTERRUPT OCCURRED 
I THEN CARRY ON WITH TEST 
iCLEAR FLAG IN CASE UE'RE LOOPING 
j-INTRRPT UITH CPU PRIORITY 'T 



:CPU PRIORITY » 0 

:0ELAY FOR PENDING INTERRUPT 
s CLEAR THE FLAG NOU 

iHAS UUT BEEN DROPPED 

(LEAVE NOU IF SO 

(IF NO MORE ITERATIONS LEFT 

{ THEN EXIT 

( ELSE 00 IT AGAIN 



HAfiOUARE TEST MACPO Y05.02 
Sl«TEST 2: BR i-EVCL TEST 



3367 037242 

3368 037246 
037246 

037250 

3369 

3370 037252 
037252 
037252 

3371 

3372 037254 
017254 
03-'254 
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004737 031162 ST5EXT: 



104432 
000004 



104403 



104401 



L10023: 



L 10021: 



JSR 
EXIT 
TRAP 
.UORO 

ENOSUB 

TRAP 

ENOTST 

TRAP 



PC.RSTVEC 

TST 

CIEXIT 
L10021-. 



CIESUB 



C»ETST 



tCATCH ILLEGAL INTERRUPTS 



HARDWARE TEST 
TEST 6: 

3375 

3376 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3401 

3402 037256 
037256 

3*03 037256 
037256 
037256 

3404 

3405 037260 

3406 037266 

3407 037270 
037270 
037272 

3408 037274 

3409 037302 

3410 037310 

3411 037316 

3412 037320 
3413 

3414 037326 

3415 037332 

3416 0373*0 

3417 037346 

3418 037352 

3419 037356 

3420 037364 

3421 037372 
3422 

3423 037400 

3424 037406 

3425 037414 

3426 037422 

3427 037430 

3428 037436 
3429 

3430 037444 

3431 037452 
3432 
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SEQ 94 



104402 

032764 
001402 

104432 
001406 
012737 
012737 
022737 
001403 
012737 

012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 

012737 
012737 
012737 
112737 
012737 
012737 

012737 
004737 



025647 
000001 
000001 



000000 
000001 
000004 
002272 
002272 
002272 
111000 
005700 

060050 
010222 
100000 
000040 
000000 
040000 

000022 
031426 



.SBTTL TEST 6: 
.SBTTL SUBTEST 1; 



PURGE AND POLL TEST 



SUBTEST 6 PURGE AND POLL TEST 

t THIS TEST UILL AGAIN RUN THROUGH THE INIT SEQUENCE. THIS 

TIME SETTING THE 'PURGE AND POLL" BIT IN STEP 3, THIS 
SHOULD CAUSE THE PORT TO DMA VARIOUS DATA PATTERNS TO 
AND FROM THE COMMUNICATIONS AREA AND FINALLY LEAVE IT 
CLEARED BEFORE TRANSITIONING TO STEP 4. THE PROGRAM WILL 
HAVE FILLED THIS AREA WITH A BACKGROUND PATTERN OF ALL 
I'S DATA PRIOR TO STARTING THE INIT, WHNE STEP 4 IS 
REACHED, THE PROGRAM WILL VERIFY THAT THE COMM AREA IS 
ALL O'S. AND THAT THE 20 WORDS PRECEDING AND SUCCEEDING 
THE COMM AREA ARE UNTOUCHED. 



T6:: 
T6.1: 



000001 000014 



002330 II: 

OOOOOOG 

002312 



000012 OOOOOOG 



002336 
002272 



002306 
002272 
002302 

002274 
002304 
002276 
002307 
002300 
002310 

002326 



2$: 



BGNTST 

BGNSUB 

TRAP 

BIT 

BEQ 

EXIT 

TRAP 

.WORD 

MOV 

MOV 

CMP 

BEQ 

MOV 

MOV 
MOV 
MOV 
ASR 
ASR 
MOV 
BIS 
MOV 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

MOV 
JSR 



CtBSUB 

«0RPFLG.LUNFLG(R4) 
It 

TST 

C»EXIT 
L 10024 
KTRL.FRUIS 
♦l.ITRCNT 
♦l.PASCNT 
2t 

•10. .ZTRCNT 

«0.R5 
n.INISTP 
TUVEC(R4),STPTBL 
STPTBL 
STPTBL 

STPTBL, CMPTBL»4 
«111000. STPTBL 
«e.Sl!B.QB!B.DI!B, 

♦COMMAR, STPTBL +2 
♦010222. CMPTBL +2 
#6. PP. STPTBL ^4 
♦40.CMPTBL»5 
♦0.STPTBL*6 
#040000. CMPTBL*6 

«18. .CMARLG 
PC.BAKPAT 



;IF UUT NOT DROPPED 
i THEN DO TEST 
s ELSE GET OUT 



{FAILING FRU IN CASE OF ERROR 
J SET UP FOR ONE TEST ITERATION 
»1F FIRST PASS 
: THEN START TEST 
: ELSE DO 10 ITERATIONS 

:SET UP R5 AS INDEX TO STEP TABLES 
:STEP 1 FOR ERROR PRINTOUT 
jPUT VECTOR IN STEP 1 
(DIVIDE BY TWO 
i DIVIDE BY FOUR 
tPUT VECTOR IN STEP 3 COMPARE 
:REST Of STEP ONE 
00!B.MP.CMPTBL 

iSTEP 1 COMPARE VALUE 
(STEP 2 - COMM AREA ADDRESS 
:STEP 2 COMPARE 

:STEP 3 - HIGH ADDRESS AND PRGE/POLL 
;REST OF STEP 3 COMPARE 
;STEP 4 

J STEP 4 COMPARE 

sLENGTH OF COMM AREA FOR THIS TEST 
iFILL COMM AREA WITH ALL I'S DATA 
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SUBTEST 1: PURGE AND POLL TEST 



3433 


037456 


004737 


031330 






JSR 


3434 


037462 


005737 


002340 






TST 


3435 


037466 


001412 








BEQ 


3436 














3437 


037470 










ERROF 




037470 


104455 








TRAP 




037472 


000023 








.UORO 




037474 


024271 








.UORO 




037476 


027002 








.WORD 


3439 


037500 










CKLOOP 




037500 


104406 








TRAP 


3439 


037502 










OOOU 




037502 


013700 


002332 






MOV 




037506 


104451 








TRAP 


3440 


037510 










ESCAPE 




037510 


104410 








TRAP 




037512 


001166 








.WORD 


3441 














3442 


037514 


005237 


002336 




5$: 


INC 


3443 


037520 


062705 


000002 






ADO 


3444 


037524 


012737 


000100 


002346 


6t: 


MOV 


3445 


037532 


016537 


002302 


002334 




MOV 


3446 


037540 


012737 


037200 


002344 


7$: 


MOV 


3447 


037546 


017464 


000002 


000012 




MOV 


3448 


037554 


022705 


000006 






CMP 


3449 


037560 


001005 








BNE 


3450 


037562 


033764 


002334 


000012 




BIT 


3451 


037570 


001027 








BNE 


3452 


037572 


000404 








BR 


3453 


037574 


023764 


002334 


000012 


81: 


CMP 


3454 


037602 


001422 








BEQ 


3455 


037604 


004737 


031302 




9$: 


JSR 


3456 


037610 


005737 


002350 






TST 


3457 


037614 


001751 








BEQ 


3458 














3459 037616 


012737 


025632 


002330 




WV 


3460 037624 










ERROP 




037624 


1044SS 








TRAP 




037626 


000024 








.UORO 




037630 


024271 








.UORO 




037632 


027002 








.UORO 


3461 


037634 










CKLOOP 




037634 


104406 








TRAP 


3462 


037636 










OOOU 




037636 


013700 


002332 






MOV 




037642 


104451 








TRAP 


3463 


037644 










ESCAPE 




037644 


104410 








TRAP 




037646 


001032 








.UORO 


3464 














3465 


037650 


016574 


002272 


000002 


10$: 


MOV 


3466 


037656 


022705 


000004 






CMP 


3467 


037662 


001404 








BEQ 


3468 


037664 


022705 


000006 






CMP 


3469 


037670 


001311 








BNE 


3470 


037672 


000440 








BR 



3471 
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SEQ 95 



PC.STEPl 

STEPST 

5t 

19. .EMSG9.PRIINI 

CIEROF 

19 

EMSG9 
PRIINI 

CICLPl 

LOGUNT 

LOGUNT.RO 

CtOOOU 

TST 

C«ESCAPE 
L10024-. 

INISTP 

«2.R5 

«100, OUTER 

CMPTBL(R5),SAEXP 

«16000.. INNER 

8TUSA(R4),TUSASV(R4) 

«6.R5 

8t 

SAEXP.TUSASV(R4) 

101 

9$ 

SAEXP,TUSASV(R4) 

lot 

PC.PDELAY 

TOUT 

71 

4LESI.FRUIS 
20.. EnSG9. PRIINI 
CIEROF 
20 

EMSG9 
PRIINI 

OCLPl 

LOGUNT 

LOGUNT.RO 

CtOOOU 

TST 

Ct ESCAPE 
L10024-. 

STPTBL(R5),8TUSA(R4) 

«4.R5 

151 

«6.R5 

St 

20 1 



>G0 DO IT 

;ir STATUS OKAY 

J THEN CONTINUE TEST 

i"SA CONTENTS IN ERROR' 



;LOOP ON ERROR? 
5 DROP UUT 



sLEAVE TST 



i ADJUST STEP COUNTER 

.•ADJUST TABLE INDEX 

jSET UP FOR DELAY ROUTINE 

iSET UP FOR COMPARE 

;SET UP INNER 

iGET SA CONTENTS 

sARE UE IN STEP 4? 

I BRANCH IF NOT 

;JUST LOOK FOR STEP 4 BIT 

(IT'S SET SO LET'S GO 

{STAY IN LOOP OTHERWISE 

sIF SA IS UHAT UE EXPECT 

t 1»EH MOVE ALONG 

J ELSE GIVE UUT SOME TIME 

I IF NO TIMEOUT YET 

i THEN GO TAKE ANOTHER LOOK 

iFAILING FRU 

i'SA CONTENTS IN ERROR" 



jURITE NEXT STEP TO UUT 
;IF STEP 3 

J THEN 00 PURGE/POLL STUFF 
,IF NOT IN STEP 4 
; THEN GO BACK TO MAIN LOOP 
I ELSE GO CHECK RESULTS 
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f £ 










1 SI • 

x^ V ; 


nri AY 




to 


rtl 3707 








nu V 




w J r f UV 


\J\J\J\J\J\J 








unQn 






UXO r c ' 


NA^CX XV 










w J f f W 


AAAAAA 








unpn 




0'^7710 




1 77772 










0T771 4 














0T771I1 




1 777'»A 
Lilt JO 










ftT77PP 


001 '^<i7 
wvXvO f 












AT7734 


ni 74 A4 
vX tHO^ 








MOU 


3474 


0^77X2 
V>j r r 


001412 








flFQ 

DC W 


f W 
















0777^ 

VO f f 










tnnur 






1044*;^ 








TRAP 


















0'^7740 


0244^ 








unRD 




0^7742 


027002 








UORO 


5477 


0T7744 














037744 


104406 








TRAP 




0'^774A 










ooou 




037746 


01 ^^700 

VX ^ f w 


002332 

WW C w WW 






flOV 




03775P 


1 044S1 

Xw^^ JX 








TRAP 


31479 












ESCAPE 






104410 

XW"*^XV 








TRAP 






000722 








UORO 


















037760 


012774 


000000 

WW WW WW 


000002 

WW w wVt 


16 1 • 




3482 


037766 


005774 


000000 

WW WW WW 






TST 


3483 


037772 


000650 

WW W WV 








BR 


3484 














3485 


037774 


004737 


031456 




20$: 


JSR 


3486 


040000 

WW W 


032764 


000001 

Vw WW w A 


000014 

WW WW ^ ~ 




BIT 


3487 


040006 

w^ WW wV 


001005 

WW X w w^ 








BNE 






005337 

WW J "J *J f 


0000 OOG 

W W VV W 






DEC 


'^4 A 4 


W X"» 


001402 








BEQ 


3490 


040016 
w 


000137 


037326 






jnp 


3491 














3492 


04009? 








T6EXT- 


EXIT 




040022 


104432 








TRAP 




040024 


000654 








.UORO 


3493 


040026 










ENOSUB 




040026 








L 10025: 






040026 


104403 








TRAP 
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SEQ 96 



1 

•l.CPO* 
0 

LIDLY.CPO* 
0 

-6(PC) 
.-4 

-22CPC) 
.-20 

0TUSA(R4).TUSASV(R4) 
16 » 

21..EHSG13.PRIINI 

CIERDE 

21 

EHSG13 
PRIINI 



{GIVE PORT SOME TIME 



iGET SA CONTENTS 
{BRANCH IE OKAY 

i&A NOT 0 IN PURGE/POLL 



CICLPl 

LOGUNT 

LOGUNT.RO 

CIDOOU 

TST 

CIESCAPE 
L 10024 

•O.STUSA(R4) 

0TUIP(R4) 

51 

PC.CHKCOn 

MRPFLG.LUNFLGCR4) 

T6EXT 

ITRCNT 

T6EXT 

2t 

TST 

CIEXIT 
L10024-. 



iURZTE O'S TO SA 
I AND READ ZP 

tGO UAZT FOR NEXT TRANSITION 

iGO CHECK com AREA 

I HAS UUT BEEN DROPPED 

(LEAVE NOW IF SO 

tIF NO MORE ITERATIONS LEFT 

I THEN LEAVE TEST 

s ELSE DO IT AGAIN 



C*ESU6 
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SUBTEST 2: EXTENDED ADDRESS TEST 

3496 .SBTTL SUBTEST 2: EXTENDED ADDRESS TEST 

3497 



3498 (yf0030 










B6NSUB 






040030 








T6.2: 








040030 


104402 








•^RAP 


OBSUB 




3499 
















3500 040032 


032764 


000001 


000014 




BIT 


M>RPFLG . LUNFLGC R4 ) 


J IF UUT NOT DROPPED 


3S01 040040 


001407 








BEQ 


1» 


t THEN DO TEST 


3502 040042 










EXIT 


TST 


; ELSE GET OUT 


040042 


104432 








TRAP 


C»EXIT 




040044 


000634 








.WORD 


L10024-. 




3503 040046 


005737 


002314 






TST 


KTFLAG 


{IF MEMORY MANAGEMENT AVAILABLE 


3504 040052 


001002 








BNE 


1* 


J THEN 00 TEST 


3505 040054 










EXIT 


TST 


J ELSE GET OUT 


040054 


104432 








TRAP 


C»EXIT 




040056 


000622 








.UORO 


L10024- . 




3506 040060 


012737 


025647 


002330 


It: 


MOV 


«CTRL.FRUIS 


iFAILING FRU IN CASE OF ERROR 


3507 040066 


012737 


000001 


OOOOOOG 




MOV 


«1.ITRCNT 


iSET UP FOR ONE TEST ITERATION 


3508 040074 


022737 


000001 


002312 




CMP 


«1,PASCNT 


J IF FIRST PASS 


3509 040102 


001403 








BEQ 


21 


1 THEN START TEST 


3510 040104 


012737 


000012 


OOOOOOG 




nov 


*10. .ITRCNT 


{ ELSE 00 10 ITERATIONS 


3511 

3512 040112 


004737 


031616 




21: 


JSR 


PCiNinnu 


{INITIALIZE MnU REGISTERS 


3513 040116 


012705 


000000 




3): 


MOV 


«0,R5 


iSET UP R5 AS INDEX TO STEP TABLES 


3514 040122 


012737 


000001 


002336 




MOV 


♦I.INISTP 


iSTEP 1 FOR ERROR PRINTOUT 


3515 040130 


016437 


000004 


002272 




MOV 


TUVEC(R4).STPTBL 


iPUT VECTOR IN STEP 1 


3516 040136 


006237 


002272 






ASR 


STPTBL 


(DIVIDE BY TUO 


3517 040142 


006237 


002272 






ASR 


STPTBL 


i DIVIDE BY FOUR 


3518 040146 


013737 


002272 


002306 




MOV 


STPTBL, CMPTBL*4 


iPUT VECTOR IN STEP 3 COMPARE 


3519 040154 


052737 


111000 


002272 




BIS 


«111000. STPTBL 


{REST OF STEP ONE 


3520 040162 


012737 


005700 


002302 




nov 


«B.Sl!B.QB!B.0l!B.0D!6.nP.CHPTBL 


3521 














iSTEP 1 COMPARE VALUE 


3522 040170 


012737 


060050 


002274 




MOV 


«COMMAR. STPTBL «2 


(STEP 2 - conn AREA ADDRESS 


3523 040176 


042737 


160000 


002274 




BIC 


«BIT1S!8IT14!BIT13.STPTBL*2 


3524 














(CLEAR THE ACTIVE PAGE FIELD 


3525 040204 


012737 


010222 


002304 




WV 


«010222.CnPT8L*2 


iSTEP 2 COnPARE 


3526 040212 


013737 


172346 


002352 




MOV 


KPARS.TEnP 


:GET RELOCATION VALUE 


3527 040220 


113737 


002353 


002276 




novB 


TEMP»1.STPTBL*4 


iJUST THE HGH BYTE 


3528 040226 


006237 


002276 






ASR 


STPTBL 44 


{MAKE IT THE EXTENDED 


3529 040232 


006237 


00227G 






ASR 


STPTBL U 


i ADDRESS OF THE COMM AREA 


3530 040236 


052737 


100000 


002276 




BIS 


•B. PP. STPTBL ^4 


:NOU SET PURGE/POLL BIT 


3531 040244 


112737 


000040 


002307 




MOVB 


♦40.CnPTBL»5 


:REST OF STEP 3 COMPARE 


3532 040252 


012737 


000000 


002300 




MOV 


«0. STPTBL *6 


sSTEP 4 


3533 040260 


012737 


040000 


002310 




nov 


«040000,CnPTBL*t> 


:STEP 4 COMPARE 


3534 

3535 040266 


012737 


000022 


002326 




MOV 


*18.,CMARLG 


jLENGTri OF COMM AREA FOR this TEST 


3536 040274 


004737 


031426 






JSR 


PC.BAKPAT 


jFILL COMM AREA WITH ALL I'S DATA 


3537 

3538 040300 


004737 


031330 






JSR 


PC.STEPl 


iGO DO IT 


3539 040304 


005737 


002340 






TST 


STEPST 


J IF STATUS OKAY 


3540 040310 


001412 








BEQ 


51 


I THEN CONTINUE TEST 


3541 

3542 040312 










ERROF 


25..EMSG9.PRIINI 


{"SA CONTENTS IN ERROR" 


040312 


104455 








TRAP 


OEROF 




040314 


000031 








.UORO 


25 




040316 


024271 








.WORD 


EMSG9 




040320 


027002 








.UORO 


PRIINI 
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3543 040322 CKLOOP 
040322 104406 TRAP 

3544 040324 DODU 
040324 013700 002332 MOV 
040330 104451 TRAP 

3545 040332 ESCAPE 
040332 10441C TRAP 
040334 000344 .UORD 

3546 

3547 040336 005237 002336 5»: INC 

3548 040342 062705 000002 ADO 

3549 040346 012737 000100 002346 6» : MOV 

3550 040354 016537 002302 002334 MOV 

3551 040362 012737 037200 002344 7>: MOV 

3552 040370 017464 000002 000012 MOV 

3553 040376 022705 000006 CMP 

3554 040402 001005 BNE 

3555 040404 033764 002334 000012 BIT 

3556 040412 001024 BNE 

3557 040414 000404 BR 

3558 040416 023764 002334 000012 81: CMP 

3559 040424 001417 BEQ 

3560 040426 004737 031302 91: JSR 

3561 040432 005737 002350 TST 

3562 040436 001751 BEQ 
3563 

3564 040440 ERROF 
040440 104455 TRAP 
040442 000032 .WORD 
040444 024271 .UORD 
040446 027002 .UORD 

3565 040450 CKLOOP 
040450 104406 TRAP 

3566 040452 DOOU 
040452 013700 002332 MOV 
040456 104451 TRAP 

3567 040460 ESCAPE 
040460 104410 TRAP 
040462 000216 .WORD 

3568 

3569 040464 016574 002272 000002 10»: MOV 

3570 040472 022705 000004 CMP 

3571 040476 001404 BEQ 
1572 040500 022705 000006 CMP 

3573 040504 001314 BNE 

3574 040506 000440 BR 
3575 

3576 040510 15): DELAY 
040510 012727 000001 MOV 
040514 000000 .UORD 
040516 013727 002116 MOV 
040522 000000 .UORD 
040524 005367 177772 DEC 
040530 001375 BNE 
040532 005367 177756 DEC 
040536 001367 BNE 

3577 040540 017464 000002 000012 MOV 
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C»CLP1 
LOGUNT 
LOGUNT.RO 
CI DODU 
TST 

C» ESCAPE 
L10024-. 

INISTP 

«2.R5 

#100. OUTER 

CMPTBLCR5).SAEXP 

416000.. INNER 

8TUSA(R4).TUSASV(R4) 

«6,R5 

8* 

SAEXP.TUSASV(R4) 

10) 

91 

SAEXP.TUSASV(R4} 
10) 

PC.PDELAY 

TOUT 

7) 

26..EMSG9.PRIINI 

OERDF 

26 

EMSG9 
PRIINI 

OCLPl 

LOGUNT 

LOGUNT.RO 

ODODU 

TST 

OESCAPE 
L10024 •. 

STPTBL(R5).aTUSA(R4) 

•4,R5 

15) 

96. R5 

5) 

20) 

1 

•l.CPO* 
0 

DDLY.CPO* 
0 

-6(PC) 
.-4 

-22(PC) 
.-20 

8TUSA(R4).TUSASV(R4) 



SEQ <)8 

{LOOP ON ERROR? 
{DROP UUT 

jLEAVE TST 



; ADJUST STEP COUNTER 

: ADJUST TABLE INDEX 

;SET UP FOR DELAY ROUTINE 

J SET UP FOR COMPARE 

iSET UP INNER 

J GET SA CONTENTS 

I ARE UE IN STEP 4? 

(BRANCH IF NOT 

J JUST LOOK FOR STEt> 4 BIT 

iIT'S SET SO LET'S GO 

:STAY IN LOOP OTHERUISE 

I IF SA IS UHAT UE EXPECT 

t THEN MOVE ALONG 

; ELSE GIVE UUT SOME TIME 

»IF NO TIMEOUT YET 

t THEN GO TAKE ANOTHER LOOK 

{"SA CONTENTS IN ERROR" 



s WRITE NEXT STEP TO UUT 
J IF STEP 3 

: THEN DO PURGE/POLL STUFF 

ilF NOT IN STEP 4 

I THEN GO BACK TO MAIN LOOP 

: ELSE GO CHECK RESULTS 

J GIVE PORT SOME TIME 



:GET SA CONTENTS 
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3578 


040546 


001412 








BEQ 


16) 


3579 
















3580 


040550 










ERRDF 


27. .EMSG13,PRIINI 




040550 


104455 








TRAP 


OEROF 




040552 


000033 








.WORD 


27 




040554 


024454 








.WORD 


EMSG13 




040556 


027002 








.WORD 


PRIINI 


3581 


040560 










CKLOOP 






040560 


104406 








TRAP 


OCLPl 


3582 


040562 










OOOU 


LOGUNT 




040562 


013700 


002332 






MOV 


LOGUNT.RO 




040566 


104451 








TRAP 


OOODU 


3583 


040570 










ESCAPE 


TST 




040570 


104410 








TRAP 


C) ESCAPE 




040572 


000106 








.WORD 


L10024-. 


3584 
















3585 


040574 


012774 


000000 


000002 


16$: 


MOV 


«0.8TUSACR4) 


3586 


040602 


005774 


000000 






TST 


BTUIP(R4) 


3587 


040606 


000653 








BR 


5) 


3588 
















3589 


040610 


004737 


031456 




20$: 


JSR 


PC.CHKCGM 


3590 


040614 


032764 


000001 


000014 




BIT 


«0RPFLG.LUNFLG(R4} 


3591 


040622 


001021 








BNE 


ST6EXT 


3592 
















3593 


040624 


062737 


002000 


172346 




ADO 


«2000.KPAR3 


3594 


040632 


103406 








BCS 


25) 


3595 


040634 


023737 


002120 


172346 




CMP 


L)HIME,KPAR3 


3596 


040642 


103402 








6L0 


25) 


3597 


040644 


000137 


040116 






JMP 


3) 


3598 
















3599 


040650 


005037 


177572 




25): 


CLR 


nnusRO 


3600 


040654 


005337 


OOOOOOG 






DEC 


ITRCNT 


3601 


040660 


001402 








BEQ 


ST6EXT 


3602 


040662 


000137 


040112 






^P 


2) 


3603 
















3604 


040666 


005037 


177572 




ST6EXT : 


CLR 


MMUSRO 


3605 


040672 










EXIT 


TST 




040672 


104432 








TRAP 


OEXIT 




040674 


000004 








.WORD 


L10024'. 


3606 
















3607 


040676 










ENDSUB 






040676 








L10026: 








040676 


104403 








TRAP 


OESUB 


3608 
















3609 


040700 










ENOTST 






040700 








L 10024: 








040700 


104401 








TRAP 


OETST 



i BRANCH IF OKAY 

iSA NOT 0 IN PURGE /POLL 



SEQ 99 



tURITE O'S TO SA 
{ AND READ IP 

iCO WAIT FOR NEXT TRANSITION 

>G0 CHECK COMH AREA 
{HAS UUT BEEN DROPPED 
: LEAVE NOW IF SO 

tPOINT TO NEXT 32KU0RDS 
(DON'T ALLOW OVERFLOW IF 4 MBYTES 
sIF THERE'S NO MORE ME WRY AVAILABLE 
s THEN CHECK FOR MORE ITERATIONS 
s ELSE 00 IT AGAIN 

;SHUT DOWN MEMORY MANAGEMENT 
jIF NO MORE ITERATIONS LEFT 
J THEN LEAVE TEST 
: ELSE DO IT AGAIN 

iMAKE SURE IT'S OFF 
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3612 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3629 

3630 040702 
040702 

3631 

3632 040702 

3633 040710 

3634 040712 
040712 
040714 

3635 040716 

3636 040724 

3637 040732 

3638 040740 

3639 040742 
3640 

3641 040750 

3642 040754 

3643 040762 

3644 040770 

3645 040774 

3646 041000 

3647 041006 

3648 041014 
3649 

3650 041022 

3651 041030 

3652 041036 

3653 041044 

3654 041052 

3655 041060 
3656 

3657 041066 

3658 041074 
3659 

3660 041100 

3661 041104 
041110 
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.SBTTL TEST 7: SHALL RING TEST 



SEQ 100 



36i 

3664 041112 
041112 
041114 
041116 
041120 

3665 041122 
041122 

3666 041124 



032764 
001402 

104432 
000526 
012737 
012737 
022737 
001403 
012737 

012705 
012737 
016437 
006237 
006237 
013737 
052737 
012737 

012737 
012737 
012737 
112737 
012737 
012737 

012737 
004737 

004737 
005737 
001412 



104455 
000023 
024271 
027002 

104406 



025647 
000001 
000001 



000000 
000001 
000004 
002272 
002272 
002272 
104400 
005700 

060050 
010211 
100000 
000C40 
000000 
040000 

000012 
031426 

031330 
002340 



; A************************************************************** 

TEST 7 - SMALL RING TEST 

THIS TEST IS SIMILAR TO TEST 6, HOWEVER. RING DEPTH 
USED IN THIS TEST IS THE MINIMUM. 



T7: 



000001 000014 



002330 

OOOOOOG 

002312 



1$; 



000012 OOOOOOG 



002336 
002272 



002306 
002272 
002302 

002274 
002304 
002276 
002307 
002300 
002310 

002326 



2i. 



BGNTST 



BIT 

BEQ 

EXIT 

TRAP 

.WORD 

MOV 

MOV 

CMP 

BEQ 

MOV 

MOV 
MOV 
MOV 
ASR 
ASR 
MOV 
BIS 
MOV 

MOV 

MOV 

MOV 

MOVB 

NOV 

NOV 

NOV 
JSR 

JSR 
TST 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CKLOOP 

TRAP 

OODU 



#0RPFLG.LUNFLG(R4) 

1* 

TST 

CIEXIT 

L 10027 -. 

♦CTRL.FRUIS 

♦l.ITRCNT 

«1.PASCNT 

2) 

*10..ITRCNT 



«0.R5 
♦l.INISTP 
TUVEC(R4).STPTBL 
STPTBL 
STPTBL 

STPTBL. CNPTBL* 4 
♦104400. STPTBL 
•B.Sl'B.QB'B.OI'B.OOiB.MP 

♦CONNAR. STPTBL ^2 
♦01021 1,CMPTBL»2 
«e. PP. STPTBL ^4 
♦40.CNPTBL»5 
«0.STPTBL*6 
•040000, CNPT6L*6 



•10. .CHARLG 
PC.BAKPAT 

PC.STEPl 

STEPST 

51 

19.,ENSG9.PRIINI 

C»EROF 

19 

ENS69 
PRIINI 

C»CLP1 
LOGUNT 



I IF UUT NOT DROPPED 
I THEN DO TEST 
i ELSE GET OUT 



FAILING FRU IN CASE OF ERROR 
SET UP FOR ONE TEST ITERATION 
IF FIRST PASS 

THEN START TEST 

ELSE 00 10 ITERATIONS 

SET UP R5 AS INDEX TO STEP TABLES 
STEP 1 FOR ERROR PRINTOUT 
PUT VECTOR IN STEP 1 
DIVIDE BY TWO 
DIVIDE BY FOUR 

PUT VECTOR IN STEP 3 COMPARE 
REST OF STEP ONE 
.CMPTBL 

STEP 1 COMPARE VALUE 
STEP 2 - COMn AREA ADDRESS 
STEP 2 COMPARE 

STEP 3 - HIGH ADDRESS AND PRGE/POLL 
REST OF STEP 3 COMPARE 
STEP 4 

STEP 4 COMPARE 



LENGTH OF CWin AREA FOR THIS TEST 
FILL COMM AREA WITH ALL I'S DATA 

GO DO IT 

IF STATUS OKAY 

THEN CONTINUE TEST 

{"SA CONTENTS IN ERROR" 



{LOOP ON ERROR? 
jDROP UUT 
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041124 


013700 


002332 






MOV 




041130 


104451 








TRAP 


3667 


041132 
041132 
041134 


104410 
000306 








ESCAPE 

TRAP 

.UORD 


3668 














3669 


041136 


005237 


002336 




5»: 


INC 


3670 


041142 


062705 


000002 






ADD 


3671 


041146 


012737 


000100 


002346 


61: 


MOV 


3672 


041154 


016537 


002302 


002334 




MOV 


3673 


041162 


012737 


037200 


002344 


7$: 


MOV 


3674 


041170 


017464 


000002 


000012 




MOV 


3675 


041176 


022705 


000006 






CMP 


3676 


041202 


001005 








BNE 


3677 


041204 


033764 


002334 


000012 




BIT 


3678 


041212 


001024 








BNE 


3679 


041214 


000404 








BR 


3680 


041216 


023764 


002334 


000012 


8): 


CMP 


3681 


041224 


001417 








BEQ 


3682 


041226 


004737 


031302 




9$: 


JSR 


3683 


041232 


005737 


002350 






TST 


3684 


041236 


001751 








BEQ 


3685 














3686 


041240 
041240 
041242 
041244 
041246 


104455 
000024 
024271 
027002 








ERROF 

TRAP 

.UORO 

.UORO 

.UORO 


3687 


041250 
C41250 


104406 








CKLOOP 
TRAP 


3688 


041252 










OOOU 




041252 


013700 


002332 






MOV 




041256 


104451 








TRAP 


3689 041260 










ESCAPE 




041260 


104410 








TRAP 




041262 


000160 








.UORO 


3690 














3691 


041264 


016574 


002272 


000002 


10): 


MOV 


3692 


041272 


022705 


000004 






CMP 


3693 


041276 


001404 








BEQ 


3694 041300 


022705 


0000C6 






CMP 


3695 


041304 


001314 








BNE 


3696 


041306 


000440 








BR 


3697 














3698 


041310 








15): 


DELAY 




041310 


012727 


000001 






MOV 




041314 


000000 








.UORO 




041316 


013727 


002116 






MOV 




041322 


000000 








.UORD 




0*1324 


005367 


177772 






DEC 




041330 


001375 








BNE 




041332 


005367 


177756 






DEC 




041336 


001367 








BNE 


3699 


041340 


017464 


000002 


000012 




MOV 


3700 


041346 


001412 








BEQ 


3701 














3702 


041350 










ERROF 



Page 75-1 



SEQ 101 



LOGUNT.RO 
ODODU 

TST jLEAVE TST 

C) ESCAPE 

L10027-. 



INISTP 
«2.R5 

«1 00, OUTER 

CMPTBL(R5),SAEXP 

«16000. .INNER 

8TUSA(R4),TUSASV(R4) 

«6.R5 

8) 

SAEXP.TUSASV(R4) 

10) 

9) 

SAEXP,TUSASV(R4) 
10) 

PC.POELAY 

TOUT 

7) 



(ADJUST STEP COUNTER 

(ADJUST TABLE INDEX 

(SET UP FOR DELAY ROUTINE 

;SET UP FOR COMPARE 

(SET UP INNER 

(GET SA CONTENTS 

(ARE UE IN STEP 4? 

(BRANCH IF NOT 

(JUST LOOK FOR STEP 4 BIT 

(IT'S SET SO LET'S GO 

(STAY IN LOOP OTHERUISE 

(IF SA IS UHAT UE EXPECT 

( THEN MOVE ALONG 

{ ELSE GIVE UUT SOME TIME 

(IF NO TIMEOUT YET 

( THEN GO TAKE ANOTHER LOOK 



20..EMSG9.PRZINI 

OERDF 

20 

EMS69 
PRIINI 



("SA CONTENTS IN ERROR" 



OCLPl 

LOGUNT 

LOGUNT.RO 

ODODU 

TST 

OESCAPE 
L10027-, 



STPTBL(RS).8TUSA(R4) 

«4,R5 

15) 

«6.R5 

5) 

20) 



♦l.(PC)* 
0 

L)DLY.(PC)» 

0 

-6(PC) 
.-4 

-22(PC) 
.-20 

8TUSA(R4},TUSASV(R4) 
16) 



lURITE NEXT STEP TO UUT 
J IF STEP 3 

t THEN 00 PURGE/POLL STUFF 
(IF NOT IN STEP 4 
: THEN 60 BACK TO MAIN LOOP 
t ELSE 60 CHECK RESULTS 

(GIVE PORT SOME TIME 



(GET SA CONTENTS 
(BRANCH IF OKAY 



21.. EMSG13. PRIINI 



(SA NOT 0 IN PURGE/POLL 
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041350 


4 Add C C 

104455 






TRAP 


C»ERDF 




041352 


AA AA 

000025 






.UORO 


21 






Aidd Cd 

024454 






.UORO 


EMSG13 






A^^AA^ 

02 7002 






.WORD 


PRIINI 


5 '03 


\>4l0o0 








CKLOOP 






041-300 


9 Ad d A^ 

104406 






TRAP 


CtCLPi 


0 /04 


041362 








DOOU 


LOGUNT 




041od2 


A4 T ^ AA 

013700 


AA*^ 

002332 




MOV 


LOGUNT , RO 




041366 


4 Add C < 

104451 






TRAP 


CtOODU 


9703 


Ad 4 V?A 

041370 








ESCAPE 


TST 




041370 


• Ad d 4 A 

1044 10 






V A A A 

TRAP 


Ct ESCAPE 




Ad • *• 

04 


AAAACA 

000050 






.UORO 


L10027-, 


5 r Oo 














Ad 4 V Td 

041374 


A« ^^^d 

012774 


AAAAAA AAAAA'^ 

000000 000002 


161 : 


MOV 


#0,STUSA(R4) 




« A A^ 

041402 


AAC^^d 

005774 


000000 




TST 


OTUIPC R4 ) 


O ffjt 


• d A^ 

O41406 


AAAd CS 

000653 






BR 


SI 


O rlO 












0 r 1 1 


Ad 1 d « A 

041410 


AA^7 V7 

004737 


AT4 MC^ 

031456 


'^A * 

201 : 


If* A 

JSR 


PC.CHKCOM 


S Tic 


Ad 4 d 4 d 

041414 


AV ^^£.d 

032764 


AAAAA4 AAAA4 d 

000001 000014 




BIT 


WRPFLG.LUItFl 


3713 


Ad « d 

041422 


AA« A AC 

001005 






BNE 


T7EXT 


3 r 14 


041424 


005337 


AAAAAA^ 

0000 OOG 




A^ A 

DEC 


ITRCNT 


3 rl3 


nM. tAXt\ 
(M143V 


AA4^A9 

001402 






BP A 

BEQ 


T7EXT 


3 rlo 


W^143e 


AAA1 V7 

00013 7 


AA A7CA 

040730 




JHr 


2t 


3 f 1 7 














3 r la 


AA 4 A TiL 






T7EXT : 


EXIT 


TST 




041436 


104432 






TRAP 


C»EXIT 




W41^^0 


AAAAA^ 

OOOOOc 






1 lAB A 

.WORD 


L10027-. 


S719 












3720 


041442 
041442 






L10027: 


ENOTST 






041442 


104401 






TRAP 


CIETST 



jMRITE O'S TO SA 
:ANO READ IP 

iGO MAIT FOR NEXT TRANSITION 

:G0 CHECK COHM AREA 

:HAS UUT BEEN DROPPED 

t LEAVE NOW IF SO 

J IF NO MORE ITERATIONS LEFT 

» THEN LEAVE TEST 

I ELSE DO IT AGAIN 
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3723 










•SBTTL 


TEST 8: 


MAXIMUM RING BUFFER TEST 


3724 
















3725 


041444 










BGNTST 






041444 








T8: : 






3726 
















3727 


041444 


032764 


000001 


000014 




BIT 


•DRPFLG.LUNFLG(R4} 


3728 


041452 


001402 








BEQ 


11 


3729 


041454 










EXIT 


TST 




041454 


104432 








TRAP 


CIEXIT 




041456 


000526 








.UORD 


L 10030 -. 


3730 


041460 


012737 


025647 


002330 


11: 


MOV 


♦CTRL.FRUIS 


3 731 


041466 


012737 


000001 


OOOOOOG 




nov 


♦l.ITRCNT 


3732 


041474 


022737 


000001 


002312 




CMP 


*1,PASCNT 


3733 


041502 


001403 








BEQ 


21 


3734 


041504 


012737 


000012 


OOOOOOG 




MOV 


*10. .ITRCNT 


3735 
















3736 


041512 


012705 


000000 




21: 


MOV 


♦0,R5 


3737 


041516 


012737 


000001 


002336 




MOV 


♦l.INISTP 


3738 


041524 


016437 


000004 


002272 




MOV 


TUVEC(R4),STPTBL 


3739 


041532 


006237 


002272 






ASR 


STPTBL 


3740 


041536 


006237 


002272 






ASR 


STPTBL 


3741 


041542 


013737 


002272 


002306 




MOV 


STPTBL. CMPTBL*4 


3742 


041550 


052737 


137400 


002272 




BIS 


♦137400. STPTBL 


3743 


041556 


012737 


005700 


002302 




MOV 


♦B.S1!B.QB!B.0I!B.0D!B. 


3744 
















3745 


041564 


012737 


060050 


002274 




MOV 


♦C0MMAR.STPTBL»2 


3746 


041572 


012737 


010277 


002304 




MOV 


♦010277. CMPTBL»2 


3747 


041600 


012737 


100000 


002276 




MOV 


♦B. PP. STPTBL ^4 


3748 


041606 


112737 


000040 


002307 




MOVB 


♦40,CMPTBL»5 


3749 


041614 


012737 


000000 


002300 




MOV 


♦0,STPTBL*6 


3750 


041622 


012737 


040000 


002310 




MOV 


♦040000 . CMPTBL ^6 


3751 
















3752 


041630 


012737 


001002 


002326 




MOV 


♦514. .CMARLG 


3753 


041636 


004737 


031426 






JSR 


PC.BAKPAT 


3754 
















3755 


041642 


004737 


031330 






JSR 


PC.STEPl 


3756 


041646 


005737 


002340 






TST 


STEPS'i 


3757 


041652 


001412 








BEQ 


5> 


3758 
















3759 


041654 










ERROF 


22. .EMSG9,PRIINI 




041654 


104455 








TRAP 


CIEROF 




041656 


000026 








.WORD 


22 




041660 


024271 








.WORD 


EMSG9 




041662 


027002 








.UORO 


PRIINI 


3760 


041664 










CKLOOP 






041664 


104406 








TRAP 


OCLPl 


3761 


041666 










DODU 


LOGUNT 




041666 


013700 


002332 






MOV 


LOGUNT, RO 




041672 


104451 








TRAP 


ClOOOU 


3762 


041674 










ESCAPE 


TST 




041674 


104410 








TRAP 


CI ESCAPE 




041676 


000306 








.UORO 


L10030-. 


3763 
















3764 


041700 


005237 


002336 




5$ : 


INC 


INISTP 


3765 


041704 


062705 


000002 






ADO 


♦2.R5 


3766 


041710 


012737 


000100 


002346 


6*: 


MOV 


♦100. OUTER 


3767 


041716 


016537 


002302 


002334 




MOV 


CMPTBL(R5).SAEXP 



SEQ 103 



ilF UUT NOT DROPPED 
I THEN DO TEST 
i ELSE GET OUT 



(FAILING FRU IN CASE OF ERROR 

;SET UP FOR ONE TEST ITERATION 

I IF FIRST PASS 

I THEN START TEST 

I ELSE DO 10 ITERATIONS 

iSET UP R5 AS INDEX TO STEP TABLES 

{STEP 1 FOR ERROR PRINTOUT 

tPUT VECTOR IN STEP 1 

I DIVIDE BY TWO 

(DIVIDE BY FOUR 

(PUT VECTOR IN STEP 3 COMPARE 

(REST OF STEP ONE 

P. CMPTBL 

(STEP 1 COMPARE VALUE 
(STEP 2 - COMM AREA ADDRESS 
J STEP 2 COMPARE 

(STEP 3 - HIGH ADDRESS AND PRGE/POLL 
(REST OF STEP 3 COMPARE 
(STEP 4 

(iTEP 4 COMPARE 

(LENGTH OF COMM AREA FOR THIS TEST 
(FILL COMM AREA WITH ALL I'S DATA 

(GO DO IT 

jIF STATUS OKAY 

( THEN CONTINUE TEST 

("SA CONTENTS IN ERROR" 



(LOOP ON ERROR? 
(DROP UUT 

(LEAVE TST 



(ADJUST STEP COUNTER 

(ADJUST TABLE INDEX 

(SET UP FOR DELAY ROUTINE 

(SET UP FOR COMPARE 
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3768 


041724 


012737 


037200 


002344 


7»: 


MOV 


3769 


041732 


017464 


000002 


000012 




MOV 


3770 


041740 


022705 


000006 






CMP 


3771 


041744 


001005 








BNE 


3772 


041746 


033/64 


002334 


000012 




BIT 


3773 


041754 


001024 








BNE 


3774 


041756 


000404 








BR 


3775 


041760 


023764 


002334 


000012 


8«: 


CMP 


3776 


041766 


001417 








BEQ 


3777 


041770 


004737 


031302 




9$: 


JSR 


3778 


041774 


005737 


002350 






TST 


3 779 


042000 


001751 








BEQ 


3780 














3781 


042002 










ERROF 




042002 


104455 








TRAP 




042004 


000027 








.WORD 




042006 


024271 








.WORD 




042010 


027002 








.UORO 


3782 


042012 










CKLOOP 




042012 


104406 








TRAP 


3783 


042014 










OODU 




042014 


013700 


002332 






MOV 




042020 


104451 








TRAP 


3784 


042022 










ESCAPE 




042022 


104410 








TRAP 




042024 


000160 








.WORD 


3785 














3786 


042026 


016574 


002272 


000002 


10): 


MOV 


3787 


042034 


022705 


000004 






CMP 


3788 


042040 


001404 








BEQ 


3789 


042042 


022705 


000006 






CMP 


3790 


042046 


001314 








BNE 


3791 


042050 


000440 








BR 


3792 














3793 


042052 








15): 


DELAY 




042052 


012727 


000001 






MOV 




042056 


000000 








.WORD 




042060 


013727 


002116 






nov 




042064 


000000 








.WORD 




042066 


005367 


177772 






DEC 




042072 


001375 








BNE 




042074 


005367 


177756 






DEC 




042100 


001367 








BNE 


3794 


042102 


017464 


000002 


000012 




MOV 


3795 


042110 


001412 








BEQ 


3796 














3797 


042112 










ERRDF 




042112 


104455 








TRAP 




042114 


000030 








.WORD 




042116 


024454 








.WORD 




042120 


027002 








.WORD 


3798 


042122 










CKLOOP 




042122 


104406 








TRAP 


S799 042124 










DODU 




042124 


013700 


002332 






MOV 




042130 


104451 








TRAP 


3800 


042132 










ESCAPE 



Pag* 77-1 



«16000. .INNER 

8TUSA(R4).TUSASV(R4) 

«6,R5 

8) 

SAEXP,TUSASV(R4) 

10) 

9) 

SAEXP,TUSASV(R4} 
10) 

PC.POELAY 

TOUT 

7) 

23.,EMS69.PRIINI 

OERDF 

23 

EMS69 
PRIINI 

OCLPl 

L06UNT 

L06UNT.ro 

ODODU 

TST 

C) ESCAPE 
L10030-. 

STPTBL(R5).STUSA(R4) 

«4.R5 

15) 

46. R5 

5) 

20) 

1 

♦l.(PC)» 
0 

LIOLY.CPO* 
0 

-6(PC} 
.-4 

•22(PC) 
.-20 

8TUSA(R4).TUSASV(R4) 
16) 

24.. EMSGIS. PRIINI 

OERDF 

24 

EMSG13 
PRIINI 

OCLPl 
LOGUNT 
LOGUNT .RO 
ODODU 
TST 



SEQ 104 



I SET UP INNER 

iGET SA CONTENTS 

iARE UE IN STEP 4? 

; BRANCH IF NOT 

;JUST LOOK FOR STEP 4 BIT 

;IT'S SET SO LET'S GO 

(STAY IN LOOP OTHERWISE 

;IF SA I« WHAT WE EXPECT 

t THEN MOVE ALONG 

I ELSE GIVE UUT SOME TIME 

»IF NO TIMEOUT YET 

t THEN GO TAKE ANOTHER LOOK 

{"SA CONTENTS IN ERROR' 



{WRITE NEXT STEP TO UUT 
I IF STEP 3 

I THEN DO PURGE/POLL STUFF 
I IF NOT IN STEP 4 
I THEN GO BACK TO MAIN LOOP 
I ELSE 60 CHECK RESULTS 

iGIVE PORT SOME TIME 



I GET SA CONTENTS 
I BRANCH IF OKAY 

iSA NOT 0 IN PURGE/POLL 
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042132 


104410 








TRAP 


CtESCAPE 




042134 


000050 








.UORD 


L10030- . 


3801 
















3802 


042136 


012774 


000000 


000002 


16f : 


nov 


^O.STUSA(R4) 


3803 


042144 


005774 


000000 






TST 


STUIPC R4) 


3804 


042150 


OOC653 








BR 


5) 


3805 
















3806 


042152 


004737 


031456 




20f : 


JSR 


PC.CHKCOM 


3807 


042156 


032764 


000001 


000014 




BIT 


40RPFLG. LUNFLGC R4 ) 


3808 


042164 


001005 








BNE 


T8EXT 


3809 


042166 


005337 


OOOOOOG 






DEC 


ITRCNT 


38X0 


042172 


001402 








BEQ 


T8EXT 


3811 


042174 


000137 


041512 






JHP 


2i 


3812 
















3813 


042200 
042200 
042202 


104432 

000002 






T8EXT: 


EXIT 
TRAP 
.UORO 


TST 

C»EXIT 
L 10030 -. 


3914 
















3"15 


042204 
042204 
042204 


104401 






LI 00 30: 


ENOTST 
TRAP 


CIETST 



jWRITE O'S TO SA 
lANO READ IP 

iGO WAIT FOR NEXT TRANSITION 

(GO CHECK com AREA 

(HAS UUT BEEN DROPPED 

(LEAVE NOU IF SO 

jIF NO MORE ITERATIONS LEFT 

t THEN LEAVE TEST 

i ELSE 00 IT AGAIN 
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TEST »:GET DUST STATU5 



3«1<» 






3820 






3621 


042206 






042206 




3822 


042206 


032764 


3823 


042214 


001022 


3824 


042216 


012737 


382S 


042224 


005064 


3826 


042230 


004737 


3827 


042234 


032764 


3828 


042242 


001007 


3829 


042244 


052764 


3830 


042252 


012705 


3831 


042256 


004737 


3832 


042262 






042262 


104432 




042264 


000002 


3833 


042266 






042266 






042266 


104401 



.SBTTL 



T9:: 

000001 000014 

025647 002330 

000014 

031716 

000001 000014 

000010 000014 

002370 

032350 

T9EXT: 



L10031: 



TEST 9:GET OUST STATUS 
BGNTST 

BIT ♦0RPFLG,LUNFLG(R4) 

BNE T9EXT 

HOV •CTRL.FRUIS 

CLR LUNrLG(R4) 

JSR PC.PRTINT 

BIT ♦0RPrLG.LUNFLG(R4) 

BNE T9EXT 

BIS #TEST.9.LUNFLGCR4) 

MOV •G0UST.R5 

JSR PC.CLSDRV 

EXIT TST 

TRAP C»EXIT 

.WORD L10031-. 

ENOTST 

TRAP C»ETST 



:>EQ 106 



jIS THE DRIVE AVAILABLE 
jGET OUT If NOT AVAILABLE 
jOEFAULT FRU IS CONTROLLER 
I CLEAR ALL FLAGS 
jGO DO A PORT INITIALIZE 
:IS THE DRIVE AVAILABLE 
iNO. BRANCH TO EXIT 
;SET TEST 9 FLAG 

;SET UP TO DO GET OUST STATUS COMMAND 
iGO ISSUE THE COMMAND 
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TEST 10: FUNCTIONAL FAULT DETECTION TEST (Internal Drve Test 



3835 .SBTTL TEST 10: FUNCTIONAL FAULT 

3836 



3837 


042270 










BGNTST 






042270 








TIO: : 






3838 


042270 


032764 


000001 


000014 




BIT 


«0RPFLG.LUNFLG(R4) 


3839 


042276 


001062 








BNE 


TIOEXT 


3840 


042300 










HANUAL 






042300 


104450 








TRAP 


OMANI 


3841 


042302 










BNCOnPLETE TIOEXT 




042302 


103060 








BCC 


TIOEXT 


3842 


042304 








1): 


PRINTF 


#T10MS1 




04? )4 


012746 


025724 






MOV 


#T10MS1,-(SP) 




042310 


012746 


000001 






MOV 


♦l.-(SP) 




042314 


010600 








MOV 


SP.RO 




042316 


104417 








TRAP 


C«PNTF 




042320 


062706 


000004 






ADO 


♦4.SP 


3843 


042324 










PRINTF 


4T10MS2 




042324 


012746 


026032 






MOV 


•T10MS2,-(SP) 




042330 


012746 


000001 






MOV 


•l.-(SP) 




042334 


010600 








MOV 


SP.RO 




042336 


104417 








TRAP 


C»PNTF 




042340 


062706 


000004 






ADD 


♦4.SP 


3844 


042344 










PRINTF 


♦T10MS3 




042344 


012746 


026057 






MOV 


•T10MS3.-(SP) 




042350 


012746 


000001 






MOV 


•l.-(SP) 




042354 


010600 








MOV 


SP.RO 




042356 


104417 








TRAP 


C«PNTF 




042360 


062706 


000004 






AGO 


♦4.SP 


3545 


042364 










PRINTF 


•T10MS4 




042364 


012746 


026134 






MOV 


•T10MS4.-(SP) 




042370 


012746 


000001 






MOV 


•l.-(SP) 




042374 


010600 








MOV 


SP.RO 




042376 


104417 








TRAP 


CIPNTF 




042400 


062706 


000004 






ADO 


♦4.SP 


3846 


042404 










GMANIL 


QUESTN.ANSUER.l.YES 




042404 


104443 








TRAP 


OGHAN 




042406 


000404 








BR 


100001 




042410 


002354 








.UORO 


ANSUER 




042412 


000130 








.UORO 


TICOOE 




042414 


026716 








.WORD 


QUESTN 




042416 


000001 








.WORD 


1 




042420 








10000) : 






3847 


042420 


005737 


002354 






TST 


ANSUER 


3848 


042424 


001407 








BEQ 


TIOCXT 


3849 


042426 


005037 


002354 






CLR 


ANSUER 


3850 


042432 


112737 


000061 


002424 




MOVB 


♦61,TSTNAM 


3851 


042440 


004737 


032150 






JSR 


PC.ORVTST 


3852 


042444 








TIOEXT: 


EXIT 


TST 




042444 


104432 








TRAP 


C»EXIT 




042446 


000002 








.WORD 


L10032-. 


3853 


042450 










ENDTST 






042450 








L 10032: 








042450 


104401 








TRAP 


CIETST 



TEST (Internal Drive Test 1) 



(IS THE DRIVE AVAILABLE 

I NO. BRANCH TO EXIT 

(MANUAL INTERVENTION ALLOWED ? 

(NO, BRANCH TO EXIT 

(PRINT TEST 10 MESSAGE 



(PRINT TEST 10 MESSAGE 



(PRINT TEST 10 MESSAGE 



(PRINT TEST 10 MESSAGE 



(GET OPERATOR INPUT 



tOZO OPERATOR ANSUER YES ? 

(NO. BRANCH TO EXIT 

(CLEAR OPERATOR ANSUER 

(LOAD DRIVE TEST NAME (ASCII 1) 

(GO RUN THE INTERNAL DRIVE TEST 
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TEST 11: TENSION FAULT ISOLATION TEST (Internal Oriv* T«»t 2) 



3855 










•SBTTL 


TEST 11 


: TENSION FAULT ISOLAIION 


TEST ( Internal Driv* Test 2) 


3856 


















3857 


042452 










BGNTST 








042452 








Til: : 








3858 


042452 


032764 


000001 


000014 




BIT 


«0RPFLG.LUNFLG(R4) 


>IS THE DRIVE AVAILABLE 


3859 


042460 


001042 








BNE 


TllEXT 


:N0. BRANCH TO EXIT 


3860 


042462 










MANUAL 




(MANUAL INTERVENTION ALLOUED ? 




042462 


104450 








TRAP 


C«MANI 




3861 


042464 










BNCOnPLETE TllEXT 


tNO. BRANCH TO EXIT 




042464 


103040 








BCC 


TllEXT 




3862 


04c466 








1): 


PRINTF 


•TllMSl 


:PRINT TEST 11 MESSAGE 




042466 


012746 


026221 






MOV 


•T11MS1,-(SP) 






042472 


012746 


000001 






MOV 


•l.-(SP) 






042476 


010600 








MOV 


SP.RO 






042500 


104417 








TRAP 


C»PNTF 






042502 


062706 


000004 






ADD 


♦4,SP 




3863 


042506 










PRINTF 


•MMSG 


; PRINT REQUIREMENT MESSAGE 




042506 


012746 


026536 






MOV 


•MMSG,-(SP) 






042512 


012746 


000001 






MOV 


•l.-(SP) 






042516 


010600 








MOV 


SP.RO 






042520 


104417 








TRAP 


CIPNTF 






042522 


062706 


000004 






ADO 


♦4.SP 




3864 


042526 










GMANIL 


QUESTN. ANSWER. 1. YES 


iGET OPERATOR INPUT 




042526 


104443 








TRAP 


CJWAN 






042530 


000404 








BR 


10000* 






042532 


002354 








.UORO 


ANSUER 






042534 


000130 








.UORO 


TICODE 






042536 


026716 








.WORD 


QUESTN 






042540 


000001 








.UORO 


1 






042542 








10000): 








3865 


042542 


005737 


002354 






TST 


ANSWER 


:DID OPERATOR ANSUER YES ? 


3866 


042546 


001407 








BEQ 


TllEXT 


:N0. BRANCH TO EXIT 


3867 


042550 


005037 


002354 






CLR 


ANSUER 


i CLEAR OPERATOR ANSUER 


3868 


042554 


112737 


000062 


002424 




MOVB 


«62.TSTNAM 


{LOAD PROGRAM NAME (ASCII 2) 


3869 


042562 


004737 


032150 






JSR 


PC.CRVTST 


sGO RUN THE INTERNAL DRIVE TEST 


3870 


042566 








TllEXT: 


EXIT 


TST 






042566 


104432 








TRAP 


CIEXIT 






042570 


000002 








.WORD 


L10033-. 




3871 


042572 










ENOTST 








042572 








L10033: 










042572 


104401 








TRAP 


C»ETST 
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TEST 12: VELOCITY FAaT ISOLATION TEST (Internal Oriva T«at 3) 



SEQ 109 



3873 
3874 








.SBTTL 


TEST 12: VELOCITY FAULT ISOLATION TEST (Intarnal Drive Taat 3) 


3875 042574 










BGNTST 






042574 








T12:: 








3876 042574 


032764 


000001 


000014 




BIT 


«0RPFLG,LUNFLG(R4) 


J IS THE DRIVE AVAILABLE 


3877 042602 


001041 








BNE 


T12EXT 


iNO, BRANCH TO EXIT 


3878 042604 










MANUAL 




{MANUAL INTERVENTION ALLOWED ? 


042604 


104450 








TRAP 


OMANI 


3879 042606 










BNCOMPLETE T12EXT 


|N0. BRANCH TO EXIT 


042606 


103040 








BCC 


T12EXT 


3880 042610 








1): 


PRINTF 


#T12MS1 


i PRINT TEST 12 MESSAGE 


042610 


012746 


026324 






MOV 


♦T12MS1.-(SP) 


042614 


012746 


000001 






MOV 


♦l.-(SP) 




042620 


010600 








MOV 


SP.RO 




042622 


104417 








TRAP 


C»PNTF 




042624 


062706 


000004 






ADO 


♦4.SP 




3881 042630 










PRINTF 


•MMSG 


;PRINT TEST REQUIREMENT MESSAGE 


042630 


012746 


026536 






MOV 


♦MMSG.-CSPJ 


042634 


012746 


000001 






MOV 


♦l.-(SP) 




042640 


010600 








MOV 


SP.RO 




042642 


104417 








TRAP 


C»PNTF 




042644 


062706 


000004 






ADO 


♦4,SP 




3882 042650 










GMANIL 


QUESTN.ANSUER.l.YES 


>GET OPERATOR INPUT 


042650 


104443 








TRAP 


CtGMAN 




042652 


000404 








BR 


10000) 




042654 


002354 








.WORD 


AMUER 




042656 


000130 








.UORD 


T)CODE 




042660 


026716 








.UORD 


QUESTN 




042662 


000001 








.UORD 


1 




042664 








10000) : 








3883 042664 


005737 


002354 






TST 


ANSUER 


;DIO OPERATOR ANSWER YES ? 


3884 042670 


001407 








BEQ 


T12EXT 


;N0. BRANCH TO EXIT 


3885 042672 


005037 


002354 






CLR 


ANSWER 


(CLEAR OPERATOR ANSWER 


3886 042676 


112737 


000063 


002424 




MOVB 


«63,TSTNAn 


sLOAD PROGRAM NAME (ASCII 3} 


3887 042704 


004737 


032150 






JSR 


PC.ORVTST 


:G0 RUN THE INTERNAL DRIVE TEST 


3888 042710 








T12EXT: 


EXIT 


TST 




042710 


104432 








TRAP 


OEXIT 




042712 


000002 








.UORD 


L10034-. 




3889 042714 










ENOTST 






042714 








L10034: 








042714 


104401 








TRAP 


CIETST 
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TEST 13: SELECT A DRIVE RESIDENT TEST (Internal Drivt Tests 1 



SEQ 



3891 






•SBTTL 


TEST 13 


SELECT A DRIVE RESIDEN1 


3892 












3893 042716 








BGNTST 




042716 






T13: : 






3894 042716 


032764 


000001 


000014 


BIT 


«DRPFLG,LUNrLG(R4) 


3895 042724 


001065 






BNE 


T13EXT 


3896 042726 








MANUAL 




042726 


104450 






TRAP 


CIMANI 


3897 042730 








BNCOMPLETE T13EXT 


042730 


103063 






BCC 


T13EXT 


3898 042732 






11: 


PRINTF 


♦T13MS1 


042732 


012746 


026430 




MOV 


♦T13MS1.-(SP) 


042736 


012746 


000001 




MOV 


n.-(SP) 


042742 


010600 






MOV 


SP.RO 


042744 


104417 






TRAP 


C$PNTF 


042746 


062706 


000004 




ADD 


«4,SP 


3899 042752 








PRINTF 


«MMSG 


042752 


012746 


026536 




MOV 


#MMSG.-(SP) 


042756 


012746 


000001 




MOV 


♦l.-(SP) 


042762 


010600 






MOV 


SP.RO 


042764 


104417 






TRAP 


C$PNTF 


042766 


062706 


000004 




ADD 


♦4.SP 


3900 042772 








GMANID 


SELTST.MANTBL.A. ,1.2. NO 


042772 


104443 






TRAP 


CIGMAN 


042774 


000406 






BR 


10000$ 


042776 


022754 






.UORD 


MANT3L 


043000 


000142 






.WORD 


T$CODE 


043002 


026646 






.WORD 


SELTST 


043004 


000000 






.WORD 




043006 


000001 






.WORD 


T$LOLIM 


043010 


000002 






.UORD 


T$HILIM 


043012 






10000$ : 






3901 043012 


012702 


002424 




MOV 


♦TSTNAM.R2 


3902 043016 


012703 


022754 




MOV 


«MANTBL.R3 


3903 043022 


112322 






MOVB 


(R3)*.(R2)* 


3904 043024 


105713 






TSTB 


(R3) 


3905 043026 


001401 






BEQ 


10$ 


3906 043030 


111312 






MOVB 


(R3).(R2) 


3907 043032 






10$: 


GMANIL 


QUESTN.ANSUER.l.YES 


043032 


104443 






TRAP 


C$GnAN 


043034 


000404 






BR 


10001$ 


043036 


002354 






.WORD 


ANSWER 


043040 


000130 






.WORD 


T$CODE 


043042 


026716 






.WORD 


QUESTN 


043044 


000001 






.WORD 


1 


043046 






10001$: 






3908 043046 


005737 


002354 




TST 


ANSWER 


3909 043052 


001412 






BEQ 


T13EXT 


3910 043054 


005037 


002354 




CLR 


ANSWER 


3911 043060 


004737 


032150 




JSR 


PC.ORVTST 


3912 043064 


012702 


002424 




MOV 


♦TSTNAM.R2 


3913 043070 


112722 


000040 




MOVB 


«40,(R2}« 


3914 043074 


112712 


000040 




MOVB 


«40,(R2} 


3915 043100 






T13EXT: 


EXIT 


TST 


043100 


104432 






TRAP 


C$EXIT 


043102 


000002 






.WORD 


L1003S-. 


3916 043104 








ENDTST 





ilS THE DRIVE AVAILABLE 

sNO. BRANCH TO EXIT 

sMANUAL INTERVENTION ALLOWED ? 

iNO. BRANCH TO EXIT 

8 PRINT TEST 13 M^SSAG^ 



t PRINT TEST REQUIREMENT MESSAGE 



I ASK OPERATOR hOR TEST NUMBER 



GET ADDRESS OF DRIVE TEST NAME 

GET ADDRESS OF OPERATOR INPUT DATA 

LOAD 1ST DIGIT OF TEST NAME 

CHECK FOR A 2N0 DIGIT 

BRANCH IF NONE 

LOAD 2ND DIGIT OF TEST NAME 

ASK OPERATOR IF READY 



{DID OPERATOR ANSWER YES ? 

:N0. BRANCH TO EXIT 

i CLEAR OPERATOR ANSWER 

:G0 RUN THE INTERNAL DRIVE TEST 

I GET ADDRESS OF ORIV^ TEST NAME 

s RETURN DRIVE TEST NAME TO ASCII SPACES 
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TEST 13: SELECT A DRIVE RESIDENT TEST (Internal Driv* Tests 1- 



SEG ill 



3917 
3918 
3919 
3930 
3931 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 



3972 
3978 
3979 



3980 



3981 



3982 
3983 

3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 



043104 
043104 
043106 



043106 



043106 
043106 
043110 



043110 
043110 
043112 
043114 
043116 
043120 
043120 
043122 
043124 
043126 
043130 
043132 
043132 
043134 
043136 
043140 
043142 

043144 
043144 

043146 
043163 
043175 



3992 
3999 



043220 
043220 



104401 



000044 



000031 
043146 
160002 
177564 

001032 
043163 
000777 
000060 
000776 

002032 
043175 
000777 
000000 
000251 



026004 

124 

124 
124 



L10035: 



TRAP 
ENDHOD 



C»ETST 



.TITLE PARAMETER CODING 

.SBTTL HARDUARE PARAMETER CODING SECTION 
BGNMOD 

' THE HARDUARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P -TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOU THE SUPERVISOR TO ESTABLISH COnHUNICATIONS 
UITH THE OPERATOR. 



L«HARD:i 



BGNHRD 

.UORD L10036-LIHARD/2 



GPRMA TUIP AO. 0,0, 160002, 177564, YES 

.UORD TtCOOE 

.UORD TUIP AO 

.UORD TtLOLIM 

.UORD TIHILin 

GPRMD TUVECT.2.0. 777,60,776, YES 

.UORD TtCODE 

.UORD TUVECT 

.UORD 777 

.UORD TtLOLIM 

.UORD TIHILin 

GPRHD TUUNT. 4. 0,777, 0.251. YES 

.UCkD TICOOE 

.UORD TUUNT 

.UORD 777 

.WORD T»LOLin 

.UORO TIHILIH 



EXIT HRD 
.UORD TICOOE 



125 
125 
057 



111 TUIP AD: 
040 TUVECT: 
115 TUUNT: 



.ASCZZ 
.ASCIZ 
.ASCIZ 
.EVEN 



ENDHRD 
.EVEN 



7TUZP ADORESS? 

?TU VECTOR? 

7T/MSCP UNIT NUMBER? 



L10036: 
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SEQ 112 



4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 

4013 043220 

043220 000000 
043222 

4014 

4021 
4022 
4023 

4024 043222 
043222 

4025 
4026 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 

4051 060000 

4052 

4053 

4054 060000 

4055 060000 

4056 060000 

4057 060050 

4058 060050 

4059 062054 

4060 062054 
4064 

4065 062124 

062124 000000 
062126 000000 
062130 

4066 062130 

4067 000001 



.SBTTL SOFTWARE PARAMETER COOING SECTION 



I •♦ 
I 

I 
I 
t 
t 
t 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



L>50FT:: 



BGNSFT 

.WORD L 10037 -LISOFT/2 



L10037: 



.EVEN 

ENOSFT 
.EVEN 



COMMUNICATIONS AREA 

THIS IS THE COMMUNICATIONS AREA THAT IS USED 
THROUGHOUT THE PROGRAM IN TESTING THE PERMUTATIONS 
OF THE UQ-PORT INIT SEQUENCE. IT IS ESSENTIAL THAT 
THIS AREA RESIDE IN AN 8KBYTE AREA OF MEMORY FREE 
OF DIAGNOSTIC CODE SO THAT IT MAY BE SUCCESSFULLY 
RELOCATED THROUGHOUT UPPER MEMORY VIA MEMORY MAN- 
AGEMENT. 



ROBUF:: 
COMMBF: 

COMMAR: 
LASTBF : 



L»LAST: 
.END 



.-60000 

.BLKW 

.BLKW 

.BLKW 

LASTAO 
.EVEN 
.WORD 
.WORD 

'endmoo 



20. 

514. 

20. 



0 
0 



(START OF THE THIRD 8KBYTE BLOCK 
(OF VIRTUAL HEnORY SPACE. ACCESIBLE 
I VIA PAR/POR 2. 



tBUFFER SPACE PRECEDING COHM AREA 

(MAXIMUM COMM AREA LENGTH 

(BUFFER SPACE SUCCEEDING COMM AREA 



PARAME-'ER CODING 
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AQHDT 






nUK " 




r 


nNdUtK 




u 


ACCCMOa 
nSStno" 


AAAA1 A 






ATI 


r 
u 


Q T TA ■ 
Dl lU * 


AAAAA1 


b 




AAAAA1 


r 


QTTA1 ■ 
Dl lUl ■ 


AAAAA9 


b 


Dl lUe ■ 


AAAAAA 


b 


Dl 1 UO * 


AAAA1 A 


b 


Dl 1 U# ■ 


AAAA9A 


b 


Dl 1 U3 ■ 


AAAAAA 


b 


Dl 'UO ■ 


AAA1 AA 


b 


BTTA7 ■ 
Dl 1 U / ■ 


AAA9AA 


b 


RTTAA a 
Dl 1 Uo " 


AAAA AA 


b 


RTTAQ a 
Dl 1 sjy ■ 


AA1 AAA 


b 


RTT1 a 

Dl 1 1 * 


AAAAA3 


b 


RTTin a 
Dl 1 lU 


AA3AAA 


r 
b 


RTT1 1 a 
Dl 111 




r 
u 


RTT13 a 
Dl 1 Ic ' 


010000 


G 


RTT1T a 

Dl lid 


020000 


G 


RTT1A a 
Dl 1 1* ■ 


040000 


G 


RTT1C a 
Dl 1 13 ' 


100000 G 


RTT9 m 


000004 


G 


RTTT a 

Dl 1 d 


OCOOlO 


G 


RTTA a 
Dl 1 * ■ 


000020 


G 


Dl 1 O 


000040 


G 


RTT& a 
Dl ID 


000100 


6 


BTT7 m 
Dl 1 f 


000200 


G 


RTTA a 
Dl 1 O 


000400 


G 


RTT4 a 

Dl 1 y 


001000 


6 


RflF a 


000400 


G 


Ron ARa 
Dn^ UnU* 


000004 


G 


Dwr UC9 


0236S3 


G 


HYTrWT 
D 1 1 \»n 1 


023627 


G 


R DT a 
D . Ul 


000400 


G 


R PO a 


100000 


G 


R ftn a 

D . uU 


000001 


G 


R TP s 
D . IC 


000200 


G 


RIP a 


000002 


G 


R MP a 


000100 


G 


R MU a 


002000 


G 


R nn a 

D . UU 


000200 


G 


R DT a 

D , rX ■ 


000001 


G 


R PP a 


100000 


G 


R nn a 


001000 


G 


R ^1 a 


004000 


G 


R a 


010000 


G 


R a 

D . DO 


020000 


G 


R a 


040000 


G 


R UD a 


040000 


G 


rrp a 


177746 


G 


rriBPru 

LL/nCV» V 


032556 


G 




030704 


G 


CHKCOM 


0314S6 


G 


CHKMSG 


033326 




CMKRSP 


033042 







ATI CIA 
UOXD X** 




ri Qnou 

LLdUftV 




r 
u 






r 
u 




nn37AA 


r 
u 


runopr 




r 
u 




AA070<; 
sjvc f co 


r 






r 
u 






r 
u 




AAOTAO 


r 
u 






r 
u 




AAAAAA 

www 


f; 


Ln 1 • Lu 


Wc * •»V 


f; 


ruTUT 
LtPi 1 nx 


Wc ( vD 


r 
u 




AAAAf)T 
WWUO 


r 
u 


F inn 


WW 


r; 
u 


rOHHRP 
VaUnnDr 


A&AAAA 
UwWW 


ri 
u 




1 777 77 
X r f f r r 


f; 


rpn Aft 


WCwOc 


f; 


rPPI ft ■ 


44 


fiy 




177771* 

X ■ ■ ■ ■ w 






0P'^AT6 

wc <J~ WW 


n 


^ 1 nL 


0PSI^A7 


r; 


TiAU ■ 


W\A/ 




riAUTfl* 


000061 
wvwx 




^ V Dn i\ 


0000P9 
wwcc 






OOOOOA 




riR<alJRs 


OOOOOP 
wwvc 




riri PKa 


000069 

VVWvC 




nri FAa 


OOOOIP 
w wxc 












000006 




rsrpRF* 

I»» 


000074 






00007S 

WW f ^ 






000036 




finn Na 


000044 






00OOS1 

W W'JX 






OOOOPA 

WWVC"t 




Tint J a 


OOOOST 

WW 




riFflTTa 


000000 
www 






OOOOSS 
w w^^ 




CIFRHRa 


0000S6 

WWW 






000060 

W WvV 




riFR<;Fa 


0000 SA 

W W J"f 




^ ▼ tn 


000057 

WW J t 






000010 

WW XV 




rsF<;Ff;s 

^ T t J tW 


OOOOOS 

W VW«I 




riF<;iJRa 


OOOOOT 

WWV J 




^ ▼ t 1 J 1 


000001 
w w vx 




^ ▼ t A X I 


00003? 
wwvc 




r iFRFQa 

u ▼» nt<a 


000101 
wvx wx 






000100 
wvx w 




^ ▼ Wt 1 O 


000026 

W Wfc V 




riftFTUa 


0000P7 

WWC f 




CIGHAN" 


000043 




C$GPHR- 


000042 




C«GPRI> 


000040 




C$INIT« 


000011 





PiTMl Pa 


000090 




PiMAMTa 


AAAAAA 




PIMAP a 


AAA1 A3 




PlHFM a 






PiMMlJ a 


0001 OT 






00009T 




PiOPNQa 
^ ♦ ran " 


OOAO^A 






ooni OA 




PiPNTRa 


00001 A 




PiPNTF a 


00001 7 




PiPNTQa 


OOO0 1 ft 




PIPNTy a 

^ • m 1 A " 


00001 S 
w wx J 




PAPllTRa 


000079 




P APllTUa 


OOOO?'^ 
WW r O 




PIQTO a 


000'^77 
Wvw ( ' 




PIQORlla 


000007 
www ' 




PIQFFf^a 
w 9 nt r u 


OOOOA7 

WW"f f 




PARFI a 


000077 

WW f f 




PIRF^Fa 


0000 '^'Y 
w w^w 




PiRPUTa 
^ * nt ■ X 


000004 

w VW^ 




CtRFLA* 


000021 

WWC A 




riRPT ■ 


000025 

WWC J 






000046 

w W^V 




Pft<%PRTa 

nX 


000041 






000037 

WW«* f 






000076 

WW » V 




nppTBL 


002224 


G 


DIAGMPa 

i/xnwriw 


000000 




DISC AC* 


000014 


G 




000020 G 


DRPFLG* 


000001 


G 




025716 G 


DRVER ■ 


000011 


G 


DRVTST 

l/n w 1 ^ 1 


032150 






002736 G 




002712 G 


FF CON* 


000036 


G 


PF NPU« 


000035 


G 


PF PUR" 


000034 G 


Ef RES* 

t* ■ n tw 


000037 


G 




000040 


G 


FLPFRR 

1 1 • t r\r\ 


027306 G 


tl IwVXV 


024316 G 


FMSGll 


024344 


G 


FMSG12 


024405 


G 


FMSG13 


024454 


G 




024503 


6 


EMSG15 


024532 G 


PM^G16 


024567 


G 




024637 


G 


FHSG18 

f l<JV AO 


024701 


G 


FMSG19 


024/43 


G 


FMSG20 


025013 


G 


EMSG21 


025052 


G 


EnSG22 


025104 


G 


EnSG23 


025135 G 


EnSG24 


025215 G 



-1 



EnSGS 

EHSG6 

EMSG7 

EHSG8 

Et1SG9 

ENCODE 

END 

ENOCLE 

ERR 

EVL 

EXELOC 
EXT 

EXTINT 
EXTVEC 
EtEND - 
E*LOAO- 
FAULTC 
FLAG - 
FLAGS 
FRUERR 
FRUIS 
F»AU - 
F»AUTO- 
FIBGN - 
F»CLEA- 
F»DU • 
FIEND - 
FIHARO- 
FIHU - 
FIINIT- 
FIJHP • 
FIHOD - 
FinSG • 
FIPROT" 
FIPUR - 
FIRPT • 
FISEG - 
FISOFT- 
FISRV • 
FISUB - 
FISU - 
FITEST- 
GOSERR 
GOUST 
GO 

GICNTO- 
GIOELH- 
GIOISP- 
GIEXCP- 
OHILI- 
G»LOLI- 
GINO - 
GIOFFS- 
GIOFSI- 
GIPRHA- 
GIPRMO- 
GIPRHL- 



SEQ 113 



09A1AA ft 


r iOAOA ■ 
b^nnUn ■ 


AAA1 AA 




03A1(^1 
UcHlOl b 


ft iPAfU) a 


AAAAAA 
WWW 




A0A010 r 




fVtfV^AO 
vvW^V 








AAA1 3 A 
WUXcU 




Vc^C / 1 u 


ftiPAOOa 


AAAAAA 




03'^7'^4 R 


ftiVPFQa 
\J9 Cn 


AAAAAA 
WWW^ 




UOO r wv 


ftiVFC a 
b* TC3 ■ 


AAfVM f^ 
UvUvXU 






HFI P a 


WWW 




10A000 ti 
xuww u 


UT AAOPa 

nxnuun ■ 


AAAAAA 
UvUvUc 


r 
u 


OOAOAA R 


HOF a 

nut ■ 


IWvW 


r 
u 


009A10 

WC^ Xv 




AAAAAA 
WWW 


b 


0TA1 1A 

UODX XD 


TRF a 
XDC 


Ol fV^OO 
vX WW 


f" 
u 


OTO/i73 


TPII a 
XU V 


OOf>OAO 
WW^V 


f" 
u 


CiX 1 TOO 


TFR a 
XCn ■ 


A^fiAAA 




0091 OO 
wcx w 


Tl 1 TMT 


ATAC7X 

vOvO 1^ 


b 


www? 


Tl fVIP 


OT1 7AA 

VOX 1 






THH ■ 

xnn 


AAAOAA 
WVC W 


b 


OAOOOO K 


xn^u 


UOd r Ic 




09A0A7 G 


TMTQTP 


OOP'^TA 


b 


030694 C% 


TMNFR 


OOP'^AA 


b 


OOP'^'^O R 


TMTPI Ga 

Xi^ 1 ■ UU" 


OOOOOP 
wwvc 


b 


WWX al 


TMTHMJ 


ox 1 6 1 6 

VOXwXw 


b 


wv /cv 


x*i 1 n9u 


OYOSAO 


U 


000040 

w w~v 


TNTfiPV 
x«v mw V 


0306 6A 


r 
b 


000007 

VWW r 


Xn 1 1 Dl* 


03P1 AO 
vOcx^v 




000016 
wwxv 


TMi/HCG 
xnvri^v 


03060A 




OOOOdI 
ww*»x 




OOOlOO 
vwx w 


c 
u 


OOOOOA 
w w\^v 


TTOrMTs 

X 1 nialll 




RV 






OOMOO 
w^vw 


R 


000006 

W WVw 


lAAU a 


000041 




0000^ 
ww^v 


KAUTQa 

X vnv I w 


000041 




000000 
www 


TAri N a 


000041 




000011 


TlOU a 


900041 




OOOOdl 


IIHRD a 


000041 




000017 

WWX r 


X ▼ XI^X 1 


000041 
ww^x 




OOOOIP 
wwxc 


TftHOn a 

X f mUI/ " 


000041 




000003 


TiH^G a 


0OOO41 




OOOOOS 


TIPROTa 

X T r Fl V 1 


000040 
ww^v 




0OOO10 


TIPTAAa 


000041 




OOOOOP 
wwwc 


TiPUR a 
X * r wn 


000041 
ww^x 




OOOOIA 
WW x~ 


TftRPT a 


0OOO41 
ww^x 




OOOOOl 




000041 
vwv^x 




030PS6 G 


X ▼ 1 V 


000041 
ww^x 




OOP370 

Wc^ ' w 


X 9 Or 1 " 


000O41 




OOOOOl G 

VWWX w 


X T jn w 


000041 
ww^x 




OOOPOO 


X • dvO ■ 


000041 
ww^x 




00037P 

WV^ r c 


TITST » 

A V 1 w 1 


000041 
ww^x 




000003 


JMP a 


0001 67 

WVXQ i 




OOOAOO 
w\^^ w 


KPARO a 


17P340 
X ( c^^v 


R 


OOOOOP 
wwvc 


KPARl a 


1 7P34P 

X ( C J^C 


R 
b 


OOOOOl 


KPAR2 a 


17P344 


R 


f^OOOOO 
www 


KPAR3 a 


17P346 


R 


OOOAOO 

VW"» w 


KPARA a 

fXr nn^ 


17P350 


R 


000376 

WVV • V 


KPAR5 • 


172352 


G 


OOOOOl 


KPAR6 - 


172354 


G 


000002 


KPAR7 « 


172356 


G 


000000 


KPORO - 


172300 


G 
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t/DFi0 1 ■ 




b 


KrUnc ■ 


1 f 2o04 


b 


f\r LW J ■ 


1 ^OTAA. 

1 rcOllO 


b 




1 r\ 
1 f cOlU 


p 
b 


KrUHj ■ 


1 70T1 O 


p 
b 




1 A 


b 




1 A 
1 r cOlO 


b 


l/TCVT 






1 r L J 




p 
b 


I^TTCCT 




p 
b 






p 
b 






u 


1 TMP1 




p 
b 






p 
b 


Li.rc.0 




p 
u 




A^Tl AA 


p 
b 




AOTOAT 


p 
b 






p 
b 


1 TMP7 


UcOOcO 


p 
u 


LUC " 


AAAAAA 
WW 


p 
b 


1 nflllMT 




u 


1 nno 

LUUr 


ATI 7V4^ 




Lw 1 " 


000010 


G 


L9^ 1 


025670 


G 


1 IIMRI 1^ 
LVwLiv 


0C2234 


G 


LUiw Lu" 


000014 G 


1 tAPP 

L V nLr 


002110 G 


1 tAPT 

L • Mr 1 


002036 


G 


1 ft All 


034010 G 


1 ftAIlT 


002070 


G 




****** 


GX 


L # LLr 


002106 


G 


1 in PA 

L ' LLCM 


033744 


G 


L *LU 


002032 


G 




002011 


G 


1 ftnp<;r 

L 9 |/C*>L 


002156 


G 


L #UCdr 


002076 


G 


1 ftnrup 

L ♦ l/C Vr 


002060 


u 


L 9 1/1 Or 


002124 


G 


L 9 UL T 


002116 


G 


1 ftriTP 

L 9 U 1 r 


002040 


G 


1 iATYP 
L «!/ 1 ir 


002034 


G 


L 9V\J 


033774 


G 


1 inuT 

L 9U\J 1 


002072 


G 


1 ftnUTY 
L #UV 1 T 


022766 


G 


1 ftpp 
L #Cr 


002052 


G 


1 ftPMUT 


002044 


G 


1 ftPPPTs 
L #cnn 1 


****** 


GX 


1 ftPTP 


002102 


G 


1 ipypi 


002046 


G 


1 ftPYPA 


002064 


G 


L #CAr J 


002066 


G 


1 ftHAPn 


043110 


G 


LIHIME 


002120 


G 


LIHPCP 


002016 


G 


LIHFTP 


002022 


G 


LIHU 


002224 


G 



1 t TTD 

LllCr 


A A 0 1 AA 


p 

b 




ATTA AA 


p 
b 


1 41 A AD 


AAOAOA 


p 
b 


1 «l ACT 
L 'LHo 1 


A<L01 TA 


p 
b 


1 41 AAA 
L 9LUMU 


AA31 A A 


p 
b 


L 'LUn 


AA3A7A 


p 
b 


1 ftHPPU 
L » Hn C V 


AApACA 
\J\JC\IOSj 


b 


L^NMnC 


AA9AAA 


p 
b 


L ♦rKlU 


AAOA/1 0 


p 
b 


L ♦rnU 1 


A037AA 


p 
b 


1 4DDT 


AA01 1 O 


p 
b 


1 tPPPP 
L *nCrr 




b 


L 9nc V 


AAOA1 A 


b 


1 APPT 3 
L wKr 1 


A A A A A A 


bA 


L 9 our 1 




b 


L f orL 






1 tcoro 

L *OrLr 


AA3A9A 


p 
b 


1 tCPTD 
L ♦ Or 1 r 


AA3A3A 


p 
b 


L ▼ d 1 n 


AA3ATA 


u 


L #.>M 


AA33TA 


p 
b 


1 ftTPQT 
L« 1 Co 1 


AA01 4 A 

vUcXX4 


b 


L* UnL 


AA9A1 A 


p 
b 


1 ftllMTT 


wcwXc 


o 


LI Wvv 






1 

LXwWX 


Wccw^ 




1 lAAA^ 
LXvWO 






1 1 AAAA 






LX Wv9 






1 

LXwwUD 






1 1 nAA7 


UO O r 




LX Wlv 


A^T770 
vOO r r c 




f 1 A A 1 1 
LIWXX 






L X vvXc 


A7AA1 A 




L X vvXO 


ATA^I 9 
VO^^Xc 




L X V V XH 






LXWX J 






LXvUXD 


n^A7A0 




1 1 AA1 7 
LX WX f 


AVCV£A 

UODOOv 




LX WcU 


ATAI 39 
UOOXcc 




1 1 AA91 
LXUvcX 


SJo rcD4 




L X WCC 






LX WcO 






1 1 AA9A 

LX WCH 






LXvvcD 






1 1 AA9A 


V/4V0 f O 




L X Wc f 


AA1 AA9 




L X WOv 


f\Appf\A 




LX wvOX 






LX vvOC 






L X vv 






LX 
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000200 


G 


PR105 • 


000240 


G 
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SEQ 114 



PR 106 - 000300 G 
PR 107 - 000340 G 
PROGRH 002360 G 
PROGRL 002356 G 
PRTORV 032456 G 
PRTINT 031716 G 
P.BCNT- 000014 G 
P. BUFF- 000020 G 
P.CRF • 000000 G 
P.ENOC- 000010 G 
P.FLGS- 000017 G 
P.INDl- 000020 G 
P.IN02- 000022 G 
P. MOO - 000012 G 
P.OPCO- 000010 G 
P.STS - 000012 G 
P.TIMO- 000024 G 
QUESTN 026716 G 
RBUF • 177562 G 
RCSR - 177560 G 
RCVDAT 002436 
RCVERR 027726 G 
ROBUF 060000 G 
RESPBF 002502 G 
RN6STP- 000004 G 
RSPBUF 002506 G 
RSPENO 002716 G 
RSPRN6 002716 G 
RSPSAV 022752 G 
RSPSTP* 000104 G 
RSTVEC 031162 G 
SAEXP 002334 G 
SELTST 026646 G 
SFPTBL 002234 G 
START 033536 
STATUS 023755 G 
STEPST 002340 6 
STEPl 031330 G 
STPTBL 002272 G 
STPIER 031420 
STPIEX 031424 
ST5EXT 037242 
ST6EXT 040666 
SVC6BL- 000000 
SVCZNS- 000000 
SVCSUB- 000000 
SVCTAG- 000000 
SVCTST- 000000 
SILSYM- 010000 
SI - 004000 G 
TEHP 002352 G 
TEST. 9- OOOOlO G 
TF.BLK- 000010 G 
TIMOUT 024026 G 
TOUT 002350 G 
TRAP4 030656 G 
TRP4FG 002316 G 



TSTNAn 


00?424 




TUIP • 


000000 


G 


TUIP AD 


043146 




TUIPSV* 


AA AA 4 A 

000010 


G 


Tl IC A _ 


AA/\A A 

000002 


G 


IU5ASV* 


000012 


G 


Tl II i^T 

lUUNT 


043175 




Tl Itff P . 


A A A A A d 

000004 


G 


Tl itir ^T 

TUVECT 


043163 




TXrtR ■ 


AA AA Af 

000005 


G 


T * AB^^ _ 

T I ARbC" 


AA AA A 4 

000001 




T * ^nnf . 
TICOut" 


026004 




TIERRN" 


AA A A '9 A 

000030 




TIEXCP* 


A A A A A A 

000000 




T»rLA6" 


AAAAA 4 

000041 




TIBnAN" 


AAAAAA 

000000 




TIHIH" 


000251 




T i 1 ACT * 

TILA5T* 


AAAAA4 

000001 




TILOLI" 


AAAAAA 

000000 






A4 AAAA 

010000 




TAI TUA_ 


AAAAfl e 

000015 




TINtST" 


« ^^^^^ 

177777 




TVNSO ■ 


AAAAAA 

000000 




TA*iC1 « 


AAAA AC 

000005 




T A tic 9 « 


000002 




IIPTHU" 


AAAAAA 
000000 






17 7777 




T 4 CCM • 


Xlllll 




T t CI IfiftI > 


000000 




T 1 lAuL* 
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T A T Al^a 


At AAAA 
010040 




T< TCMD — 
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AAAAAA 
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TITE5T" 


000015 




Ills In" 
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T t TCTC • 

1 » 1515" 


AAAAA1 

000001 




T 4 « Al 1 - 


A4 AA 1 

010012 




T4 4^1 C 


At AA 1 A 

010010 




T 4 4ni 1 — 


010011 




T 4 4U AO _ 


A4 AAV£ 

010036 




▼ 4 4UU _ 


At AAAA 

010000 




T 4 4 TUT M 


At AAA7 

010OO7 






At AAAV 

010003 




T 4 4DOAa 


At AAAO 
010002 




T4 4Cf1f a 


At AAV7 
010037 




T4 4CDIiB 


At AAA£ 

010006 




T4 4CI A M 


At AAO£ 

010026 




T 4 4 C U M 


At AAAt 

OlOOOl 




T 4 4TCC ■ 


At AAVC 

010093 




Tl 

1 1 


ATAA 1 C 


p 


Tl \ 
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AVAAA A 

034044 




Tl O 

1 1 .c 


AT A OVA 




Tl A 

Tlv 


AA 007A 

042270 


p 
b 


T 1 ACVT 
1 lUfcX 1 


AA OA A A 

042444 




1 Xvnox 


A3^734 

Uc J 1 


p 
b 


T10MS2 


026032 


G 


TlOMSi 


026057 


G 


T10MS4 


026134 


G 



PARAMeTER COOING 
Syabol table 



MACRO r05.02 Thursday 25-Jul-85 16:53 Pag* 



Til 042452 G 

TllEXT 042566 

TilMSl 026221 G 

T12 042574 G 

T12EXT 042710 

T12nSl 026324 G 

T13 042716 G 

T13EXT 043100 

T13nSl 026430 G 

T2 034514 G 

. ABS. 062130 000 
000000 001 
Errors detected: 0 



T2EXT 034736 

T3 034744 G 

T3EXT 035354 

T4 035362 G 

T4EXT 036102 

T5 036124 G 

T5EXT 036640 

T5.1 036124 

T5.2 036652 

T6 037256 G 

(RU.I.GSL.ABS.OVR) 
(RU.I.LCL.REL.CON) 



T6EXT 040022 

T6.1 037256 

T6.2 040030 

T7 040702 G 

T7EXT 041436 

T8 041444 G 

T8EXT 042200 

T9 042206 G 

T9EXT 042262 

T9FLAG- ****** GX 



*** Assembler statistics 



Work file reads: 291 
Work file writes: 299 

Size of »«ork f'le: 34376 Uords ( 135 Pages) 
Size of core pool: 19714 Uords ( 75 Pages) 
Operating system: RSX-llM/PLUS (Under VAX/VHS) 

Elapsed time: 00:07:39.61 

CZTU2A .BIN . CZTU2A/-SP-SVC40R .MLB/IL , CZTU2A 
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SEQ 115 



UAM - 000200 G 

VECTOR 031212 G 

VEC4 • 000004 G 

URBUF 002750 G 

UROATA 002342 G 

URERl 025250 G 

URER2 025302 G 

URER3 025323 G 

URER4 025351 G 

URER5 025375 G 



UftER6 025452 G 
URER7 025534 G 
URINTO 027226 G 
WRPPTE 027252 G 
URl 023350 G 
XIALUA' 000000 
XIFALS- 000040 
X»OFFS- 000400 
XI TRUE- 000020 



